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本 报告 提出 一 种 APPLE 下 DOS 3. 3 系统 环境 下 的 高 速 高 效率 数据 压缩 技术 ， 讨论 了 组 合 特征 型 
数据 压缩 和 复原 的 原理 ,并 给 出 了 实施 流程 。 以 本 技术 实现 的 数据 压缩 , 其 压缩 比 高 达 50%， 存 取 
速率 高 于 现行 DOS 系统 。 更 具有 普遍 使 用 意义 的 是 : 依 本 方法 编制 的 压缩 /复原 程序 仅 占 216 个 字 
节 的 长 度 ， 并 作为 现行 DOS 3. 3 条 统 的 一 个 补 钉 程序 直接 由 DOS 管理 , 从 而 形成 了 一 个 功能 面向 用 
户 的 高 层次 使 用 环境 。 文 内 所 附 实 人 鲍 表 明 , 本 技术 的 加 入 增强 了 现行 DOS 对 数据 资料 的 处 理 能 力 ， 
而 且 不 会 对 用 户 程序 提出 任何 超越 现行 DOS 系统 规定 范畴 内 的 编程 要 求 。. 


引言 

减少 数据 资料 对 计算 机 储存 空间 需求 的 最 有 效 方 
法 是 采用 数据 压缩 技术 。 由 于 数据 文件 的 直接 开销 是 
储存 介质 ,而 压缩 后 的 数据 文件 只 需 较 少 的 空间 ,从 而 
可 在 软盘 上 储存 更 多 的 数据 资料 。 鉴 于 微型 计算 机 的 
大 范围 多 领域 的 应 用 , 对 数据 压缩 技术 的 需要 就 更 为 
迫切, 这 是 由 于 微型 机 的 外 储存 空间 太 小 。 这 个 辣 题 
对 APPLE I 系统 来 说 显得 更 为 尖锐 , 因为 APPLE I 所 
配置 的 驱动 器 其 磁头 鉴别 率 不 高 , 故而 只 具有 单 密度 
软盘 的 储 存 能 力 , 软盘 的 最 大 储存 空间 为 140K 左右 ， 
这 一 缺陷 极 大 地 限制 了 利用 APPLE I 来 作 大 批量 数 
据 资料 管理 方面 的 应 用 工作 。 加 之 软盘 上 的 数据 会 由 
于 时 效 作用 或 不 当 的 操作 而 被 损坏 , 所 以 通常 要 求 对 
数据 软盘 至 少 拷 备 一 份 备份 盘 片 ,这 样 ,大 量 数据 的 累 
积 将 造成 软盘 数量 的 急剧 增加 , 不 但 增加 了 费用 开销 ， 
而 且 对 用 户 的 软盘 管理 工作 加 重 了 负担 。 


基于 此 , Luber 在 1980 年 发 表 于 creative computing 


的 一 篇 文章 中 首先 提出 了 APPLE 系统 的 有 关 图 象 数 
据 球 缩 的 方法 ,其 原理 类 似 于 替代 法 的 消 零 法 ,将 数据 


中 的 连续 重复 部 分 在 外 储存 器 中 消去 , 这 种 方法 同样 


适用 于 数据 文件 中 ,但 其 压缩 率 取决 于 数据 的 重复 度 。 
而 更 多 的 数据 压缩 技术 诸如 Lundon 的 算术 编码 
法 ，Huftman 代码 法 等 等 ,尽管 比 之 Lubar 法 有 
效 ,但 压缩 和 复原 处 理 都 非常 复杂 和 耗 时 , 旦 上 述 诸 种 
方法 均 无 法 形成 直接 支持 用 户 软 件 的 系统 操作 环境 ， 
因而 , 这 些 方法 的 使 用 完全 依赖 用 户 对 方法 本 身 的 接 
受 能 力 , 导致 这 些 方法 的 应 用 实际 上 受到 了 极 大 的 限 
制 。 
本 报告 提出 的 数据 压缩 /复原 技术 以 及 由 此 产生 
的 名 为 “DC" 的 模块 程序 ,采用 的 是 组 合 状态 和 换 值 传 
送 方法 。 该 项 技术 完全 符合 DOS 系统 读 / 写 数据 文件 


的 特点 ,因而 ,属于 DOS 系统 的 一 个 功能 模块 直接 由 
DOS 管理 , 这 就 形成 了 无 需 用 户 干预 的 系统 高 层次 使 ， 
用 环境 ; 压缩 /复原 一 个 字 节 耗 时 仅 30us, 却 可 节省 厂 
头 读 / 写 及 DOS 的 FMS 系统 耗费 的 近 100us 时 间 ; 若 
不 考虑 数据 的 奇 / 偶 效应 , 其 压缩 比 恒 为 50%%, 在 奇 / 
偶 效 应 的 影响 下 , 正 缩 比 略 低 于 50%。 


符号 表 : 
Ain 一 ( ) 一 一 资料 记录 , 表明 记录 Ain 由 集中 的 几 个 
元 素 顺序 排列 组 成 , 其 长 度 为 几 个 8bit 
字 和 < E 
D= {  ) 一 一 表明 元 素 D 且 只 可 以 代表 集中 的 任何 一 


个 元 素 。 

一 一 组 成 十 进 制 数 据 的 全 部 元 素 。 
大 一 为 4bit 的 可 表征 任意 一 个 的 16 进 制 值 
中 hi 一 一 8bit 长 庆 的 对 应 e 的 全 部 可 供 打 印 的 ASCH 

码 元 素 。 
$Ni 一 一 由 4bit 的 Xi 和 成 + 的 组 合 构成 的 8bit 元 素 ， 
， 克 为 高 位 ， 克 十 为 低位 。 
qi $ Mi 一 表示 $$Nj 包含 了 $Mi 和 事 Mi | 
. 两 者 的 特征 。 ， 
Vi 一 一 对 一 切 i。 
ELn(A) 一 一 对 A 作 长 度 为 n 的 特征 喘 象 变换 。 


T 型 文件 的 结构 和 传送 ，- 
APPLE IE 系统 的 数据 资料 大 多 以 了 型 文件 读 / 写 ， 
T 型 文件 是 最 不 复杂 的 文件 结构 , 它 是 由 许多 资料 记 
录 Ain 所 组 成 , 每 个 Ain 之 间 由 “ 回 车 ”字符 所 分 隔 。 
16 进 制 值 $00 通常 代表 T 型 文件 的 结束 , 因此 , 在 T 
型 文件 中 “ 回 车 ”ASCE 码 为 船 D) 和 .$00 这 两 个 值 具 
1 


有 特殊 意义 ,并 对 DOS 的 POSITION (定位 ) 和 
APPEND《〈 追 加 ) 这 两 个 命令 起 标志 作用 , 故 尔 , 它 们 不 
人 允许 被 成 为 了 型 文件 资料 的 一 部 分 。 同 时 , T 型 文件 
的 传送 必须 经 由 BASIC 系统 中 的 GET、INPUT 和 
PRINT 指令 来 使 资料 与 用 户 程序 相 沟通 ,因为 这 个 原 
因而 使 得 APPLE 公司 的 DOS 3. 3 系统 采用 了 等 值 传 
送 的 方法 来 传送 记录 Ain， 导 致 它 所 支持 下 的 了 型 文 
件 中 的 资料 只 能 包含 可 以 “被 打印 ? 出 来 的 ASCI 码 字 
母 , 这 个 限制 使 得 APPLE I 系统 处 理工 型 文件 时 速度 
较 慢 卫 软 盘 的 空间 利用 率 最 差 , 因为 数据 资料 中 的 每 
一 个 10 进位 数 必须 以 一 个 表示 其 ASCI 码 的 8 bit 长 
度 字 节 来 储存 。 

从 数据 结构 来 看 , 如 果 不 考 虑 资料 与 用 户 程序 沟 
通 的 这 一 限制 , 对 一 个 10 进位 数 完全 可 用 一 个 


NIBBLE 字 节 〈 即 4 bit 长 度 的 字 节 ) 来 表示 , 因为 4 个 、 
bit 可 表示 有 ~ 国共 16 种 状态 。 为 了 满足 T 型 文件 ， 


对 $D 和 $00 这 两 个 值 的 需要 , 在 NIBBLE 字 节 中 排 
除 $0 和 $D 两 种 状态 记录 , 则 4 个 bit 可 表示 14 种 状 
态 记 录 。 对 于 任意 一 个 10 进 制 实 型 数 ,其 全 部 可 能 出 
现 的 数字 元 素 是 
心 一 {0,，1，2，3，4，5，6，7，8，9， 
十 , 一，。， 了 )V i (1) 
式 中 ,也 代表 底数 10。 
“GD 式 中 的 全 部 元 素 个 数 正 好 是 14 个 ,因此 ,与 允 
许 一 个 NBBLE 字 节 所 代表 的 
NTBBLZLE = (1，2，3，4，5，6，7，8，9， 
4，B，O， 奋 PP) (2) 
14 种 状态 正好 组 成 1 对 1 的 关系 ,显然 地 ， 两 个 
NIBBLE 字 节 组 成 一 个 8 bit 字 节 ,因而 ,一 个 .8 bit 字 
节 完 全 能 描述 两 个 me 即 两 个 10 进位 数 。 如 此 , 一 个 
占有 几 位 数 (包括 十 , 一 ,。,E 在 内 ) 的 10 进 制 数据 只 
应 占有 ， 
记 一 如 /2 (3) 
个 8 bit 字 节 。 据 此 , 如 果 采 用 这 种 结构 记录 数据 而 又 
能 被 系统 所 接受 , 将 比 现行 了 型 文件 压缩 软盘 空间 达 
50% 。 

”由 于 一 个 10 进 制 数 据 所 占有 的 位 数 可 能 是 偶 位 
数 , 亦 可 能 是 奇 位 数 , 而 在 奇 位 数 状态 下 , 为 确保 资料 
记录 的 间隔 标志 “ 回 车 ” 符 不 参与 数据 的 压缩 组 合 , 最 
末 一 个 NIBBLE 字 节 必须 被 浪费 ,因而 ,(3) 式 应 写成 ; 


=1 2/2 ?为 偶数 C4) 
(人 十 1)72 .5 为 奇数 : 
这 就 是 在 数据 压缩 过 程 中 会 发 生 的 奇 / 偶 效应 ,该 效应 
实际 上 使 压缩 比 只 能 接近 于 50%。 

组 合 特征 型 的 数据 压缩 和 复原 


组 合 特征 的 方法 由 Carl Banes 提出 并 用 于 集成 电 


， 路 、 微 处 理 器 总 线 和 数字 电路 的 维修 目 的 ， 它 的 本 


质 是 以 一 个 二 进 制 值 来 表征 一 种 特征 状态 ,多 个 单独 
特征 的 二 进 制 和 即 构成 了 一 个 组 合 特征 。 这 种 方法 的 
优点 是 组 合 和 分 离 是 快速 可 道 的 。 而 这 种 方法 的 设计 
思想 被 引进 于 本 报告 所 提出 的 数据 压缩 /复原 技术 中 。 
令 , 一 个 10 进 制 数 的 原始 数据 构成 形式 为 ， 
4o 一 〔〈Gl ya，0:，。%…，0a) 《5) 
其 中 ，a 为 (1) 式 。 而 现行 DoS 3. 3 系统 环境 下 , 对 
(5) 式 数据 的 读 / 写 表现 为 下 式 ， 
一 (中 MT1， 中 HH2， 相 M3，…， 中 Mn) 《6) 
式 中 ,元 素 $yMi 可 能 代表 的 .ASCII 码 字母 为 : 
中 hi 一 (B0，B1，8B2，B3，DB4，B5，B6，B7，DB8， 
B9，4B，4D，4 轨 ,COC5JVY Li (7) 
由 于 
4z4 一 TaC4ox) VY 
中 ai 一 Dot) Vi 
所 以 , (6)、(7) 两 式 仅仅 是 (5)、(1) 两 式 的 特征 映 象 变 
换 而 已 , 在 空间 长 度 上 并 不 产生 任何 畸变 。 很 清楚 ， 
Ain 的 结构 类 型 满足 等 值 传送 的 规范 , 而 恰恰 是 该 规 


(8) 


范 导致 了 数据 储存 空间 的 浪费 。 
设 对 (6) 式 作 组 合 特征 型 压缩 , 则 (6) 式 写成 ; 
4 一 (站 Ni 玫 N,， 将 … 光 Ne) (9) 
式 中 ， 
中 Ni 一 MX YY (10) 


为 双 NIBBLE 字 节 特征 的 组 合 。 并 令 : 
和 一 忆 ( 和 MD 一 {(1，2，3，4，5，6,， 7，8，9，4，B，C， 
民 ,， PP) Vi 《11) 
间 时 ,为 了 强制 
上 Ni 由 Mi， 下 Mi+ VVi 〈12) 
式 成 立 , 则 当 (6) 式 中 n 为 奇数 时 ,必须 补充 一 个 
省 Ms+， 且 满足 : 
人 二 4 有 〈 即 小 数 点 的 4S8CIH 吗 )  〈13) 
由 此 得 到 (9) 式 中 之 m 为 (4) 式 。 
《11) 式 是 (7)? 式 的 特征 映 象 变换 , 但 由 于 忆 ， 夺 + 
分 别 为 一 个 NIBBLE 字 节 ,其 结果 导致 资料 记录 的 特 
征 映 象 变换 为 . 


和 一 了 ma 《4in) 《14) 


故 在 空间 长 度 上 发 生 了 压缩 比 ks“1/2 的 变化 , 这 正 是 
本 报告 所 希望 达到 的 结果 。 

4m 一 了 nm(4s)》 
人 二 (hm 六 0 


的 可 道 变换 , 令 


了 一 厂 ( 中 MD) 
一 (01,，02, 03，04,，05，06 ,07，08，09 ,04， 
0B8，0C， 0 有，07 )} 


Vi (16) 
式 中 , 疡 为 8bit 字 节 ,于 是 有 ， 


(00 
《17) 
4 本 卫 ( 员 Mi) 


玉 玫 16 * Zi 16 为 10 进 制 值 , 下 同 (18) 
机 Ni 一 世 十 Fi 
二 居 ) 避 ) 直 : 
实现 了 4 = 一 Zn(4nw) 的 变换 。 
复原 变换 是 压缩 的 道 变换 ， 己 知 $Nj, 令 ; 


ViVi (19) 


:一 省 Mi/16 并 取 整 
Ti 一 中 Vi 一 16*J 
YibYi(20) 
取 其 道 变换 
什 Mhi 一 碾 一 (7 
en 21) 
1 一 了 一 (Yi 


即 实现 了 4 一 Zn(4em) 的 复原 变换 。 
对 于 上 述 公式 的 运算 及 变换 , 在 计算 机 中 的 执行 
是 极其 简单 的 。(17)、(21) 两 式 的 变换 仅 需 准备 两 份 


变换 映 象 表 即 可 , 以 被 变换 量 作 喘 象 表 的 索引 指针 值 ， 


系统 作 一 次 脚 标 寻 址 运算 即 可 获得 变换 后 的 映 象 。 
(18) 式 是 将 疡 连续 作 4 次 左 移 运算 的 结果 , 而 (19) 式 
则 是 将 天 和 r+, 作 一 次 “或 "运算 获得 。 (20) 式 中 的 
扩 是 将 中 Vi 右 移 4 位 得 到 , 而 #%+: 是 以 #$OF 对 中 N; 
作 一 次 “与 ” 运算 的 结果 。 压 缩 /复原 两 个 字 节 资 料 仅 
需 几 十 微 秒 , 但 每 两 个 字 节 只 向 软盘 写 或 读 一 个 字 节 
的 压缩 码 , 少 占用 32 微 秒 的 磁头 动作 时 间 , 仅 此 一 项 ， 
压 缩 /复原 所 耗费 的 时 间 已 可 被 节省 的 时 间 所 抵消 了 。 
换 值 传送 和 DOS 管理 

要 使 本 报告 所 列 示 的 组 合 特征 型 数据 压缩 /复原 

技术 面向 用 户 , 唯一 的 途径 是 使 其 成 为 现行 DOS 3.3 


系统 中 的 一 个 新 的 功能 模块 ,以便 掩盖 它 的 实现 和 表 


达 的 细节 , 只 将 其 根本 目的 直接 显现 出 来 , 这 样 , 就 能 
使 用 户 程序 只 需 向 系统 “表态 ” 而 无 需 考虑 “如 何 实 
现 ”, 这 也 正 是 本 项 数据 压缩 技术 优 于 其 它 文献 询 料 报 
告 的 压缩 技术 之 处 。 

这 里 ,有 两 个 困难 :一 是 压缩 数据 如 何 与 用 户 程序 
互相 传送 的 问题 ,因为 两 者 不 具有 共同 状态 ,并 且 在 传 
送 方 面 不 具有 同等 的 自由 。 二 是 如 何 使 这 项 压缩 的 
读 / 写 功能 不 经 由 DOS 命令 解释 器 (DCD 的 解释 而 又 


能 由 pos 的 档案 管理 系统 (EMS) 所 识别 并 执行 。 

本 报告 所 采取 的 技术 是 换 值 传送 和 DOS 渗透 。 
压缩 数据 模块 由 pos 系统 中 的 最 高 层 结构 DCI/SM 
(SM 为 与 Dc 层次 并 列 的 状态 器 ) 的 SM 处 进入 ,这样 
就 绕 过 了 DCI, 从 而 无 需 为 Dos 系统 创造 要 求 用 户 另 
行 掌握 的 新 的 DOS 命令 ,而 且 , 由 于 SM 直接 接受 用 户 
程序 经 由 PRINT 指令 发 送 来 的 资料 信息 并 能 呼叫 
Dos 的 第 二 层 结构 FMS 中 “ 写 一 个 资料 字 节 ”(wW) 模 
块 将 资料 发 送 给 文件 缓冲 区 ,因而 ,在 此 可 连续 截取 两 
个 发 送 来 的 规范 化 资料 字 节 员 2040(i+, 并 将 其 压缩 
成 一 个 非 规范 化 字 节 4#Nj ， 从 而 以 换 值 实现 了 接收 用 
户 程序 资料 的 沟 和 。 数 据 的 复原 模块 则 直接 经 由 DoS 
的 FMS 中 * 赎 文件 的 一 个 字 节 ”(R) 模块 处 进入 , 由 于 
该 R 模块 已 读 取 了 文件 中 送 来 的 一 个 字 节 并 仍 由 其 
发 送 给 用 户 程序 的 INPUT 指令 , 所 以 , 在 此 截取 压缩 
字 节 $ Ni 并 再 将 其 复原 成 $af; 和 $HMi+, 这 两 个 


”INPUT 指令 能 接受 的 规范 化 字 节 , 以 换 值 实现 了 向 用 


户 程序 发 送 异 型 文件 资料 。 由 于 该 两 模块 必然 进入 
FMS, 所 以 , 压缩 后 的 资料 对 软盘 的 /oO 过 程 自然 会 由 
FMS 呼叫 DOS 中 最 末 层 模块 RWTS 而 完成 。 

有 了 两 个 理由 需要 在 上 述 两 个 模块 中 设立 一 个 供用 
户 程序 “表态 ”的 软 开 关 , 该 软 开关 控制 DoS 系统 对 T 


-型 文件 的 读 写 采 用 Al 方式 (规范 化 数据 格式 ) 还 是 4， 


方式 (压缩 数据 格式 ): 

1. 在 本 报告 的 压缩 技术 实现 之 前 ， 用 户 的 T 型 
文件 均 是 在 现行 pos 下 建立 的 , 是 规范 化 数据 格式 ， 
必 须 保证 本 技术 的 加 入 仍 能 读 / 写 规范 化 的 T 型 文 
件 ,以 保持 系统 的 连续 性 。 

2 本 压缩 技术 仅 对 数据 资料 有 效 ， 对 文字 符 资 
料 并 不 具备 组 合 特征 型 压缩 条 件 , 所 以 对 文字 符 资 料 
记录 仍 要 求 以 规范 化 方式 读 / 写 。 

软 开 关 以 BASIC 的 POKE 指令 实现 ,本 技术 规定 : 
POKB 工 ， 0 要 41 方 式 
Te 荆 ， 1 要 42 方 式 
这 意味 着 , 用 户 程 序 应 在 读 / 写 T 型 文件 的 资料 记录 
时 以 此 条 指令 向 系统 作 个 表态 , 此 种 表态 方式 具有 极 
大 的 灵活 性 , 因为 它 同样 允许 用 户 程序 在 同一 个 工 型 
文件 中 读 / 写 Al 和 A2 这 两 种 异型 结构 的 资料 记录 。 
用 户 “ 表 态 ” 在 DOS 已 具有 不 止 一 种 数据 处 理 功 能 的 
情况 下 是 不 可 避免 的 。 

全 部 DOS 渗透 和 数据 的 压缩 /复原 流程 示 于 图 。 
流程 清楚 地 表明 , 依据 本 技术 设计 的 DC (DATA 
COMPRESSION) 模块 ,每 读 / 写 两 个 字 节 只 访问 一 次 
Dos 的 R/W 功能 ,因此 ,其 IO 速率 远 高 于 现行 DoS。 
DC 模块 以 6502 指令 编制 , 仅 占 216 个 字 节 , 程序 是 全 
浮动 的 , 合理 的 按 排 可 使 其 置 于 现行 DOS 的 空洞 区 域 
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实 例 

为 了 永 范本 数据 压缩 /复原 的 DC 模块 的 使 用 并 
显示 其 效益 , 举 实例 如 下 (DC 模块 已 装 入 Dos, 用 户 表 
态 软 开关 地 址 工 为 10. 进 制 值 969):， 

编制 用 户 程 序 如 表 1。 该 程序 的 行 5~25 仅 是 为 
了 产生 两 组 数据 相同 的 数组 以 被 分 别 以 Al 方式 和 
A2 方式 建立 T 型 文件 。 行 30 设 定 以 Al 方式 将 数组 
A 存在 T 弄 文件 A 中 , 行 60 设 定 以 A2 方式 将 数组 B 
存在 T 弄 文件 B 中 。 行 90 和 行 120 则 分 别 设 定 以 Al 
和 A2 方式 读 取 文 件 A 和 3B 中 的 数据 资料 并 分 别 存放 
于 数组 A 和 3 中 , 行 150 以 下 为 将 芯 入 的 数组 A 和 .了 
中 各 自 的 前 4 个 数据 打印 出 来 以 比较 两 者 是 否 一 致 。 
其 余 行 内 容 均 为 现行 DOS 的 读 / 写 T 型 文件 指令 , 不 
管 是 Al 方式 还 是 A2 方式 ,两 者 没有 任何 差别 。 

运行 该 程序 后 打印 出 来 的 结果 示 于 表 2， 显 然 地 
两 者 的 最 终结 果 完 全 一 致 。 

表 3 所 示 为 用 “CATALOG” 命令 列 出 的 软盘 目录 
清单 ,清单 标明 T 再 文件 A 占 空间 长 度 为 3 段 而 B 则 
为 2 段 。 由 于 “CATALOG” 是 将 任何 文件 都 必须 占有 
的 至 少 为 1 段 长 度 的 T/S 表 也 作为 其 空间 累计 的 ,所 
以 文件 A 和 了 B 的 资料 实 占 段落 数 分 别 为 2 段 和 1 段 ， 
文件 B 储存 空间 为 文件 A 的 50%。 

为 了 比较 文件 A 和 了 在 软盘 上 储存 格式 的 差别 ， 
利用 * 读 一 个 磁盘 段落 "的 方式 将 两 个 文件 的 软盘 储存 
信息 直接 取出 ， 并 分 别 列 出 其 首 端的 几 个 字 节 资料 示 
于 表 4 中 , 由 表 4 可 见 , 文件 A 的 数据 结构 为 4 , 符 
合 (6) 式 ,而 文件 B 的 数据 结构 则 为 4w , 符合 (9) 式 ， 
这 正 是 文件 B 所 占 空间 大 大 少 于 文件 A 的 根本 原因 。 


DOSs 文件 打开 
POKE L. 工 


上 一 用 户 表态 软 开 关 
i 一 压 端 模块 专用 软 开 关 , 由 系统 控制 
KSWVCSW 一 DOS 的 170 寄存 器 引 


图 ”组合 特征 型 数据 压缩 /复原 流程 图 
该 例 表 明 : 由 于 该 项 技术 是 面向 用 户 的 高 层次 操 
作 环 境 , 所 以 ,用 户 程序 完全 不 必 考 虑 该 技术 的 实现 细 


让 


FMSAW 


节 , 实 例 程 序 清 单 完全 证 明了 这 一 点 。 
表 1. 


实例 程序 清单 

DIM A(30): DIM B(30) 
D$ = CHR$ (47:A(C0) 一 1 
FORI 一 1To30 
本 一 工 十 0.3:A(D 一 一 AGI 一 1) x* 了 
B(D = A(CD: NEXTT 
POKE 969,0 
PRINT pD$; \OPEN Av 
PRINT D$;i WRITE A” 
FORI 二 ITOoO30 
PRINT A(D : NEXTI 
PRINT B 中 ; \CLOSE An" 
POKE 969,1 

PRINT D$; \OPEN By” 
PRINT pi vWRITE Br 
FORI 一 1TO30 
PRINT B(D) : NEXT I 
PRINT D$; \CLOSE Bn 
POKE 969,0 

PRINT D$; \OPEN An 
PRINT D$; "READ An 
FORI 一 1To30 
INPUT A(D : NEXTI 
PRINT D 中 ; \CLOSE An 
POKE 969,1 

PRINT B$; \OPEN B" 
PRINT D 中 ; \READ Bn 
FORI 一 1To30 
INPUT B(GID : NEXTI 
PRINT D 肿 ; \CLOSE B” 
150 “FORI 一 1TO4 
155 ”PRINT A=";A(GD: PRINT "\B 一 ”;B(D 
160 NEXT I 

表 2. 程序 运行 结果 

A 一 一 1. 3 

B 一 一 1.3 

A 一 2. 99 

B 一 2. 99 

A 一 一 9. 867 

B=- 一 9. 867 

A 一 42. 4281 

B 一 42. 4281 


“ 表 3. 软盘 目录 清单 


DISK VOLUME 
003 
002 
002 
”003 


站 氏 因 > 
0 


开 002 吾 


表 4.， 文件 ^ 和 文件 B 的 软盘 储存 信息 (部 


分 ) 
0800 一 〈C2 F4) 8D 3F AA 8D CA F9 B 文件 
0808 一 78 8D 53 F5 39 2F 8D C3 
0810 一 35 F9 79 A4 8D 25 27 F7 
0818 一 85 37 8D C2 14 52 F8 33 
0820 一 2F 8D 96 94 7F 3A 45 8D 
注 : 括 号 中 变 为 一 1. 3( 下 同 ) 
0800 一 (AD Bl1 AE B3) 8D B2 AE B9 A 文 件 


0808 一 B9 8D AD B9 AE B8 B6 B7 
0810 一 8D B4 B2 AE B4 B2 B8 Bl1 
0818 一 8D AD B2 B2 B4 AE B8 B6 
0820 一 B8 B9 B3 8D B1 B4 B1 B6 
结论， AS 
本 数据 压缩 /复原 技术 采用 组 合 特征 方式 ,因而 实 


现 了 快速 道 变换 , 其 压缩 比 高 达 50%，, 实际 读 / 写 速率 、 


高 于 现行 DOS 的 T 型 文件 。 由 于 采用 了 换 值 传送 ,所 
以 成 为 现行 DOS 系统 的 一 个 补 钉 程序 直接 使 DOS 本 


身 具 备 了 这 一 压缩 功能 ,形成 了 面向 用 户 的 使 用 环境 ， 
因而 不 对 用 户 的 实际 使 用 带 来 任何 困惑 或 麻烦 。 这 项 
技术 在 APPLE I 系统 上 的 使 用 将 减少 大 量 的 软盘 澳 
用 开销 和 机 时 费用 开销 , 有 普选 的 使 用 价值 和 较 高 的 
效益 。 
这 项 数据 压缩 的 技术 原理 同样 适用 于 其 它 类 型 的 
微机 系统 。 
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APPLE PASCAL 磁盘 文件 管理 与 应 用 


陕西 工学 院 解 建 民 


APPLE PASCAL 是 UCSD 一 PASCAL 系统 在 
APPLE 上 的 实现 。 本 文 介绍 APPLE PASCAL 磁盘 文 
件 管理 的 特点 .内 部 结构 和 误 删 文 件 的 恢复 方法 

一 .APPLE PASCAL 的 磁盘 文件 管理 

APPLE PASCAL 的 运行 以 软盘 为 基础 ,有 一 台 软 
盘 驱 动 器 即 可 运行 , 最 多 可 配置 6 台 。APPLE 
PASCAL 使 用 5 英寸 单 面 单 密度 软盘 , 每 片 盘 有 35 个 
磁道 ,每 道 16 扇 区 ,每 肩 区 256 字 节 。 

APPLE PASCAL 把 整个 软盘 分 成 280 个 逻辑 块 ， 
编导 为 0 一 279。 每 个 逻辑 块 包含 两 个 物理 扇 区 , 即 每 
块 512 字 节 。 第 0 块 和 第 1 块 存放 系统 引导 程序 , 第 
2 块 至 第 5 块 存放 文件 目录 , 第 6 块 至 第 279 块 为 程 
序 或 数据 区 。 

文件 目录 区 由 4 个 逻辑 块 组 成 , 每 个 文件 在 目录 
区 占有 一 个 目录 项 ,每 个 目录 项 为 26 个 字 节 。 目 录 区 
的 第 0 个 目录 项 总 是 存放 卷 名 ( 即 每 片 盘 的 名 称 ) 和 有 
关 卷 的 信息 。 从 第 1 个 目录 项 开始 存放 文件 目录 , 每 
片 盘 最 多 可 存放 77 个 文件 。 . 

卷 目 和 文件 目录 结构 如 下 表 。 


表 1 卷 目录 结构 
内 容 


引导 程序 起 始 块 号 (为 0) 
目录 区 结束 块 号 十 1( 为 6) 
| 未 用 

卷 名 长 度 


卷 名 (最 多 7 个 字符 ) 
盘 罗 辑 块 总 数 (为 280) 
现存 文件 个 数 

未 用 

日 期 

未 用 


文件 类 型 用 第 4 字 节 的 低 三 位 形成 0 一 7 分 别 表 
示 BACK、BAD、CODE、TEXT、INFO、DATA、GRAF、 
FOTO 八 种 不 现 类 型 的 文件 。 

日 期 由 两 个 字 节 形成 十 六 个 二 进 制 位 , 高 七 位 表 
示 两 位 十 进 制 的 年 份 ,中 间 五 位 表示 日数 , 低 四 位 表示 
月 份 。 cs 


表 2 文件 目录 结构 


文件 起 始 块 号 
文件 结束 块 号 十 1 
文件 类 型 


文件 名 长 度 (文件 删除 时 为 0) 
文件 名 (最 多 15 个 字符 ) 
逻辑 长 度 

日 期 


APPLE PASCAL 进行 文件 操作 时 , 以 目录 提供 的 
信息 作为 依据 。 读 文件 时 , 依次 在 各 目录 项 中 查找 要 
读 文件 的 名 称 , 查 到 时 以 此 目录 项 给 出 的 起 始 块 号 和 
结束 块 号 十 1 来 控制 读 出 文件 。 查 目录 项 时 ,以 卷 目 
录 给 出 的 现存 文件 个 数 来 控制 最 多 查 多 少 个 目录 项 。 
换 句 话说 , 设 卷 目录 中 给 出 的 现存 文件 个 数 为 X, 则 目 
录 区 中 前 和 十 1 个 目录 项 (第 0 个 目录 项 是 卷 目录 ) 反 
喘 了 磁盘 中 现存 文件 的 情况 (以 下 称 这 XT1 个 目录 
项 为 有 效 目 录 项 )， 从 第 X 十 1 个 目录 项 起 其 后 的 目录 


项 是 无 意义 的 。 每 次 删除 文件 时 ，APPLR PASCAL 修 、 


改 目录 区 , 包括 修改 卷 目录 中 的 现存 文件 个 数 和 将 原 
有 效 目 录 区 中 被 删 文件 目录 项 后 面 的 目录 项 前 移 , 但 
并 不 改变 盘 中 文件 的 内 容 。 这 样 , 文件 目录 项 在 目录 
区 出 现 的 先后 次 序 和 文件 在 盘 上 存放 的 次 序 总 是 一 至 
的 ; 盘 上 现存 的 X 个 文件 总 是 连续 地 占用 目录 区 的 第 
1 个 至 第 和 个 目录 项 ,而 被 删除 文件 的 目录 项 并 不 保 
留 在 有 效 目 录 区 中 。 

APPLE PASCAL 的 磁盘 空间 分 配 策略 是 连续 分 
配 。 建 立 文件 时 ,总 是 寻找 最 大 的 自由 磁盘 空间 ,将 其 
写 入 该 自由 空间 的 开头 连续 n 个 块 中 Cn 视 文件 长 度 
而 定 )。 当 该 空间 写 不 下 文件 时 ,给 出 “ 写 不 下 ”的 信息 
而 不 建立 该 文件 的 目录 项 , 但 已 写 入 盘 中 的 该 文件 的 
内 容 并 不 作 改 变 。 写 入 成 功 时 ,建立 目录 项 ,文件 便 完 
整地 留 在 磁盘 中 。 

-自由 磁盘 空间 可 以 从 目录 表 中 反映 出 来 ,后 一 个 
目录 项 的 第 0、1 字 节 表示 的 起 始 块 号 与 前 一 个 目录 项 
的 第 2、3 字 节 表示 的 结束 块 号 十 1 之 差 , 即 为 这 两 个 
文件 之 间 的 自由 空间 块 数 。 这 样 ,各 个 目录 项 给 出 的 
起 止 块 号 已 反映 了 整个 磁盘 空间 的 使 用 情况 , APPLE 
PASCAL 仅 依 据 文件 目录 就 可 进行 磁盘 空间 的 管理 。 

二 .磁盘 文件 的 存放 格式 
不 同类 型 的 文件 在 磁盘 中 的 存放 格式 是 不 同 的 。 
CODE 和 TEXT 是 两 种 主要 的 类 型 。 
类 型 为 CODE 的 文件 是 由 编译 、 汇 编 或 链接 程序 


产生 的 了 码 或 机 器 码 文件 。CODE 文件 的 第 0 块 存放 
段 目录 , 其 后 的 块 存放 代码 文件 内 容 。 段 目录 结构 见 
表 3。 

表 3 段 目录 结构 


内 容 


段 存 放 的 相对 块 号 和 段 长 度 
段 名 
段 类 型 


段 接口 文本 存放 的 相对 块 号 
版 本 号 代码 类 型 、 段 号 

该 文件 使 用 库 单 元 情况 
版 权 信息 


段 目 录 的 主要 特征 是 其 中 的 段 名 (由 字母 .数字 组 


:成 ) 可 整齐 地 显示 出 来 (通常 用 户 程序 为 一 段 , 其 程序 


名 出 现在 此 )。CODE 文件 的 长 度 可 从 0 一 63 字 节 中 
得 到 : 找 出 最 大 的 相对 块 号 B, 将 其 后 的 段 长 度 字 节 数 
除 以 512 得 商 C, 有 余数 时 将 C 加 1,， 则 B 十 C 为 该 文 
件 长 度 。 文 件 长 度 加 段 目 录 所 在 块 号 即 得 段 目 录 中 的 
结束 块 号 。 确 定 文件 长 度 时 应 注意 两 点 : D, 算得 的 
结束 块 号 不 得 大 于 文件 所 在 自由 空间 的 最 末 块 号 ; @). 
单独 编译 的 单元 和 经 汇编 后 的 CODE 文件 长 度 除 按 上 
述 计算 外 ,应 再 加 1。 

”执行 库 文件 建立 程序 LIBRARY. CODE 产生 的 库 
文件 , 虽然 用 显示 目录 命令 给 出 的 类 型 为 DATA, 实质 
上 是 CODE 文件 , 其 存放 格式 与 CODE 文件 是 一 致 的 ， 
SYSTEM. LIBRARY 便 是 一 例 。 

类 型 为 TEXT 的 文件 由 编辑 操作 或 用 户 程序 的 
REWRITE (F, 到 文件 名 >) 产生 (其 中 了 说 明 为 
TEXT) 。TEXT 文件 以 每 两 块 为 一 页 (1024 字 节 ) 来 组 
织 。 首 页 为 标题 页 ,存放 编辑 程序 要 用 到 的 内 部 信息 ， 
其 余 页 存放 文件 正文 。TEXT 文件 主要 由 ASCII 码 的 
可 显示 字符 组 成 。 二 交 

对 于 TEXT 文件 , 只 要 按 逻 辑 块 号 将 盘 上 内 容 读 
出 并 显示 , 是 不 难 找到 文件 在 盘 中 存放 的 起 始 和 结束 
块 号 的 。 对 于 CODE 文件 , 只 能 从 段 目录 中 提供 的 信 
息 来 确定 。 

三 . 误 副 文件 的 恢复 . 

APPLE PASCAL 仅 依据 文件 目录 来 管理 磁盘 文 
件 。 只 要 将 误 删 文件 的 目录 项 放 人 目录 区 的 适当 位 
置 , 误 删 文件 就 可 恢复 。 问 题 是 经 删除 操作 后 , 目录 区 
被 删 文件 目录 项 后 的 各 目录 项 均 已 向 前 移动 , 被 删 文 
件 的 目录 项 已 被 其 后 的 第 一 个 目录 项 占据 , 如 何 能 得 
到 被 删 文 件 的 目录 项 入 和 扔 ? 其 中 包括 文件 名 、 文件 类 
型 \ 文 件 在 盘 中 的 起 始 块 号 和 结束 块 号 。 对 于 误 删 文 

(下 转 12 页 ) 


FORTRAN--80 语言 级 调用 6502 子 程序 


空军 雷达 学 院 ” 吴 保 芳 


在 APPLE-I 接口 槽 插入 一 块 Z80 卡 。 该 机 便 可 
工作 在 6502 又 可 工作 在 Z80 的 控制 之 下 ,而 成 为 一 个 
双 CPU 的 微型 计算 机 。 可 工作 于 CP/M 操作 系统 。 
在 CP/M 系统 下 , 正确 调用 -6502 子 程序 , 对 于 充分 控 
掘 微机 潜力 、 优 化 和 缩短 应 用 程序 显然 是 一 种 很 有 意 
义 的 事情 。 本 文 主要 介绍 在 FORTRAN-80 语言 级 如 
何 调用 6502 子 程序 。 特 别 是 用 APPLE SOFT BASIC 
的 绘图 子 程序 阑 述 我 们 的 作法 。 


APPLE,SOFT BASIC 具有 绘图 语句 ， 这 给 使 用 者 


带 来 极 大 方便 。:BASIC 之 所 以 有 如 此 之 功能 , 是 因为 
主机 上 有 固化 了 的 有 关 绘图 的 解释 程序 。 汪 否 可 以 设 
想 让 FORTRAN-80 也 调用 这 些 程序 而 同样 其 有 绘图 
功能 呢 ? 回答 是 肯定 的 。 不 过 FORTRAN-80 不 能 直 
接 调用 6502 机 器 语言 子 程序 。 需 要 另外 一 段 汇编 语 
言 子 程序 作为 FORTRAN-80 主 程序 调 异 6502 子 程序 
的 桥梁 , 再 将 该 汇编 子 程序 与 FORTRAN-80 主 程序 实 
施 链 接 装 配 生 成 一 个 绝对 文件 以 后 ,你 的 
FORTRAN-80 主 程序 便 具有 绘图 功能 了 。 这 也 算得 上 
对 FORTRAN-80 功能 的 一 个 小 小 的 扩展 。 以 下 详细 
说 明 , 先 列 出 几 个 6502 子 程序 的 首 地 址 。 

0F457H 一 画 点 子 程序 首 地 址 

0F53AH 一 画 线 子 程序 首 地 址 “ 

0F399H 一 定义 屏幕 为 文本 方式 的 子 程序 首 地 址 

0F3E2H 一 定义 屏幕 为 HGR 的 首 地 址 

0F3D8&8H 一 定义 屏幕 为 HGR2 的 首 地 址 

因为 是 6502 的 子 程序 ， 人 
6502 内 存 的 实际 地 址 。 

信息 传送 区 的 填 法 : 


画 点 时 , 将 竖 座 标 置 入 A 寄存 器 传送 区 。 横 座 标 


低 8 位 填 入 X 寄 存 器 传送 区 , 高 8 位 填 和 信 立 寄存 器 传 
送 区 (用 Z80 的 8 位 寄存 器 对 可 自动 完成 这 一 工作 )， 
调用 0F457H, 在 屏幕 上 可 得 到 一 点 。 

画 线 时 , 先 画 起 始点 , 横竖 康 标 的 填 法 如 上 , 调用 
0F457H; 再 将 终点 横 座 标的 低 8 位 填 入 A 害 存 器 传送 
区 , 高 8 位 填 和 人 X 寄 存 器 传送 区 。 坚 座 标 填 入 Y 立 寄存 
器 传送 区 。 调 用 0F53AH, 这 样 就 完成 了 由 起 点 到 终 
点 画 一 条 线 。 ， 

下 面 是 在 高 分 辩 率 第 一 页 绘制 正弦 波 曲 线 的 例 
溯 。 


100 


50 


中 
0 


睛 
心 
加 


了 


ATYPE FORIRAN. FOR 


PROGRAM MAPE 
COMMONVD/JT,K 
CALL SUBR1 

PAI 一 3. 14159/90. 0 
DO 100 I 一 1,180 
s=-FLOAT(I 一 1 
DEG 一 PAI* S 

CYc=SINCODEG)- 


J 一 INT(80. 0 一 50. 0x* CYC 十 .5) 


K 一 24 十 I 
CALL SUBR2 
CONTINUE 
PAUSEWAIT' 
CALL SUBR3 
WRITE(1,50) 
FORMAT(' 十 GOOD1! 
STOP 
END 
ENTRY SUBR1 
Z4$CPU EQU 0F3DEH 
A$VEC EQU 0F3DOH 
HGR2 EQU 0F3D8H 
POINT EQU 0F457H 
LINE .EQU 0F53AH 
TEXT EQU 0F399H 
A$ACC EQU 0F045H 
A$XREG EQU 0F046H 
A$YREG: EQU 0F047H 
MEMORY COMMON/D/ 
SUBR1 LD HL,HGR2 
LD (A$VEC) ,HL 
LD HL,(Z$PU) 
LD (HL ,A 
LD 芭 ,18H 
LD A;0 
LD (A$ACC) ,A 
LDPD PE,POIHNT 
ID (A$vEC),DE 
LD (HL) ,A 
ED (A$ACC)， 碎 


LD A,9EFH 


25， ，ELD (A$YREG) ,A 


26: LD BC,LINE 
27， LD (A$VEC) ,BC 

28， LD (CHBL) ,A 

29: LD (A$XREG) ,IX 

30: LD A,50H 

31: LD (A$ACC) ,A 

32， LD (A$VEC) ,DE 

33: LD (HL ,A 

34: LD (A$YREG) ,A 

.35: LD 芭 ,117H 

36 LD (A 下 ACC) ,IX 

37， LD 〈A$VEC) ,BC 

38， LD (HL) ,A 

39， LD (A$VEC) ,DE 

40， RET 

41 _ENTRY SUBR2 

42: SUBR2 LD A,(MEMDRY) 

43: LD (A$ACC),A_ 

44; LD BC, (MEMORY 十 2) 

45， LD (A$XREG) ,BC 

46 ， LD HL, (2Z$$CPU) 

47: LD (HL) ,A 

48， RET 

49， ENTRY SUBR3 

50: SUBR3， LD HL,TEXT 

51: LD (A$VEC) ,HL 

52: LD HL, (zcCPU) 

53， LD (HL) ,A 

54， RET 

55: END 


主 程序 中 J 一 INT(80. 0 一 50 x CYC 十 。5), 是 为 了 
在 屏幕 上 得 到 适当 比例 的 图 形 进行 的 变换 , 不 影响 曲 
线 描绘 的 精度 。K 为 模 座 标 参 数 。 

PAUSE 可 以 让 画面 在 屏幕 上 停留 任 意 时 间 , 按 
“RETURMN” 键 则 继续 运行 

SUBRI 定义 屏幕， ,天 应 


12~~15 定义 屏幕 为 HGR2 

6~ 人 28 画 竖 座 标 轴 。 起 点 (24, 0)， 终点 (24， 
1659) 

29 一 38 画 横 座 标 轴 。 起 点 (24, 80) , 终点 (279， 


80) 
39 ” 存 画 点 子 程序 地 址 , 为 了 SUBR, 画 正弦 曲线 
作 准 备 。 

SUBR， 画 正弦 曲线 ， 由 COMMON/D/ 传 递 座 标 

参数 。 

SUBR3 定义 屏幕 为 文本 大 式 

几 点 说 明 : 

1. 本 汇编 子 程序 可 存在 磁盘 上 , 随时 供 
FORTRAN-80 链接 使 用 。 可 根据 波形 的 极 性 、 比 例 仅 
需 修 改 座 标 轴 的 起 点 和 终点 。 

2. 若 仅 在 Z80 汇编 语言 级 绘图 而 不 与 
FORTRAN-80 主 程序 链接 , 图 形 绘 完 后 将 因由 6502 返 
回 CP/M 而 请 即 消失 ,可 用 如 下 指令 使 画面 作 任意 时 
间 的 停留 。 

LDC,1IH 

CALL 5H 

按 任意 键 后 程序 继续 运行 。 

3. 图 形 的 硬 考 贝 

将 LD HL,0FF69H 

.LD (0F3D0H) ,HL 汪 
LD (0E400H) ,A 3Z80 卡 插 于 4 号 模 

RET 

END 

作为 一 个 文件 经 汇编 链接 存 于 系统 盘 上 ,运行 后 ， 
系统 进入 6502 监控 * ”“CTRL-B”w 返回 BASIC“]”。 
然后 按 通 常 的 图 形 拷 员 方法 进行 。 

4. 同 SOFTBASIC 一 样 , 若 程序 长 了 ,也 会 破坏 高 
分 辩 率 图 形 缓冲 区 ,这 里 提请 读者 注意 。 

综 上 所 述 ，CP/M 系统 提供 了 调用 6502 子 程序 的 
功能 , 而 且 调用 也 比较 简便 。 这 样 当 APPLE-I 工作 于 
CP/M 系统 时 , 可 免 于 一 部 分 程序 的 编写 。 


一 般 位 置 较 孔 轴 测 图 的 APPLE_I 机 绘制 


如 涉 农 校 。 郭 刚 


引 填 
用 计算 机 绘制 圆 孔 的 轴 测 图 , 难点 在 于 隐藏 绝 的 
消 隐 。 有 的 用 联 解 枯 圆 方程 的 方法 求 出 不 完全 椭圆 
可 见 弧 的 起 始 角 和 终止 角 , 绘 出 了 特殊 位 置 圆 孔 的 正 
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自贡 盐 校 。。 罗 幼 m 

等 测 轴 测 图 [1]， 但 未 解决 一 般 位 置 圆 孔 任意 正 轴 测 
图 的 绘制 问题 。 因 此 , 本 文 对 这 一 问题 进行 了 探讨 。 
文中 采用 两 次 旋转 变换 的 方式 建立 起 一 般 位 置 图 孔 
的 空间 坐标 数学 模型 ,并 提出 以 可 见 投影 梢 圆 作为 窗 


口 对 隐藏 投影 椭圆 进行 裁剪 消 隐 , 从 而 在 APPLE-I 机 
上 实现 了 一 般 位 置 圆 孔 任 意 正 轴 测 图 的 绘制 。 


程序 允许 圆 孔 轴线 任意 倾斜 、 投 影 方向 任意 角度 


的 各 种 情况 。 绘 图 时 ， 只 需 键入 圆 孔 项 面 图 圆心 坐标 
和 投影 方向 角 , 便 可 自动 绘 出 圆 孔 的 轴 测 图 。 

一 ` 圆 孔 的 空间 坐标 

为 讨论 方便 , 建立 坐标 如 图 一 所 示 。 设 贺 孔 底面 
轿 贺 心 位 于 坐标 原点 0, 顶 面 圆 Cr 的 圆心 位 于 一 般 点 
T(C7: ，?r ，7: ), 轴线 OT 倾斜 于 投影 面 。OT 的 水 平 
投影 与 X 轴 的 夹 角 为 B,OT 与 Z 轴 的 夹 角 为 ", 则 


有 一 arct9 (如 ) 


6 一 aretg(S2 士 2) : (CD 
孔 深 107| 


一 /而 干 看 十 闻 


: 图 一 
如 果 将 一 个 与 CT 半径 相同 、 深 度 相 同 的 水 平 位 
置 圆 孔 CH 先 绕 工 轴 正 向 旋转 5 角 , 再 绕 乙 轴 正 向 旋 
转 B 角 , 则 CH 与 CT 完全 重合 ( 见 图 一 ) 。 因 此 , 一 般 
位 置 圆 孔 的 空间 坐标 可 由 水 平 位 置 圆 孔 的 空间 坐标 
乘 以 两 次 旋转 夭 阵 Tr 而 得 到 。 下 面 采用 四 维 齐 次 坐 
标 进行 变换 。 


cosg 0 一 si 0 cosp sp 0 0 
0 工 0 0 一 S3 cos8 0 0 
[Cr] 一 汉 4 所 
st 0 cogg 0 0 0 1 工 
4LO 0 革 1 0 0 0 1 
Cosg。cos cosd。siap 一 sia6 0 
一 sinp cosF 0 0 
一 | ， ， ， 局 《2) 
Si。cos8 Sin6。3Si88 cc056 0 
1 


0 0 0 


应 注意 到 公式 (2) 是 按 点 了 在 第 一 分 角 位 置 时 写 
出 的 , 当 点 T 位 于 不 同 分 角 时 ,其 旋转 方向 是 不 同 的 。 
根据 [23 所 分 析 的 空间 点 位 置 与 旋 向 的 关系 可 知 , 第 
一 次 旋转 时 , 若 2 与 9. 同 号 ,应 正 向 旋转 ;车 异 呈 ,为 
反 向 旋转 。 第 二 次 旋转 时 , 若 z。 与 zy 同 号 ,为 正 向 旋 


转 ; 若 异 号 , 为 反 向 旋转 。 所 以 , 反 向 旋转 时 , 应 将 公 
式 (2) 中 的 正 茨 函 数 项 乘 以 系数 严 一 一 1G 一 1,2) 。 

设 水 平 圆 圭 点 的 坐标 为 ( 筷 , 了 ,，, 乞 ), 其 中 

其 一 一 玉 。0084 
一 一 玉 。Sin 
一 |07| 

则 一 般 位 置 圆 的 空间 坐标 为 

[X 了 2 1 一 CC 7 2 1DXxcCr] 
即 
f 和 一 碟 * Co086。c058 一 了 了。S11 十 已。2。sV8G。C051 
| 一 工 :。 和 XI。cOs6。 sia8 十 了 sa。 08 有 十 也 。 了 了。si6 。S38 甩 
心包 一 一 了 。X。Ssia6 十 QZ 。cos 

(3) 


在 上 式 中 ,对 于 位 于 坐标 面 上 的 贺 
一 0 
二 ,裁剪 消 隐 原 理 
轴线 倾斜 于 投影 面 的 园 , 其 轴 测 投影 一 般 仍 为 本 
圆 C3] 。 对 于 正 圆 孔 而 言 , 由 于 两 个 端面 园 位 于 一 对 
相互 平行 的 空间 平面 上 , 所 以 其 轴 测 投影 是 一 对 长 轴 ， ， 
相互 平行 、 轴 线 的 投影 重合 于 短 轴 的 投影 枯 较 , 见 图 


图 二 

设 C: 为 可 见 投影 权 圆 ，C。 为 隐藏 投影 权 贺 , 工 为 
两 椭圆 中 心 距 , B 为 椭圆 短 半 轴 。 可 以 看 出 ，C: 与 C。 
的 关系 有 下 列 四 种 情况 : 

1 相交 EL<2B 

2 相 切 L 一 2B 

3" ”分离 “ 工 >2B 

4 重合 =0 ， 
其 中 , 当 且 仅 当 C: 与 C。 相交 时 ， c. 上 才 存 在 可 见 弧 。 

设 c. 上 任意 点 M 到 两 个 椭圆 中 心 的 距离 分 别 是 
太一 1) 六 一 |Wo| ,显然 

当 疡 盖 六 时 ,M 为 可 见 点 

当 访 << 访 时 ,M 为 不 可 见 点 

当 疙 一 记 时, M 重合 于 交点 一 , 或 天 ， 是 可 见 
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的 端点 。 
因此 , 将 可 见 投影 权 圆 5 C: ) 作为 裁剪 窗口 , 通过 比较 
必 \ 必 的 大 小 , 即 可 判断 出 隐藏 投影 精 圆 上 诸 点 的 可 
- 见 性 。 仅 将 进入 裁剪 窗口 的 可 见 点 画 出 , 便 可 绘制 出 
圆 孔 的 消 隐 轴 测 图 。 
L, 户 ， 访 可 根据 两 点 距离 公式 - 


di 二 /Cr 二 zz)2 十 《 妨 一 3 《4》 
三 .可 见 弧 的 存在 条 件 


如 二) 所 述 , 仅 当 满足 条 件 L<2B 时 , 隐藏 圆 才 
具有 可 见 弧 。 否 则 , 属于 全 隐藏 , 不 必 进 行 闷 、D, 的 
计算 与 比较 。 

设 为 承 孔 平面 与 轴 测 投影 面 之 夹 角 (参见 图 
三 ), 则 投影 栏 圆 短 半 轴 互 一 玉 。cosyy 


(图 三 ) 
因为 承 孔 面 法 矢 07 一 7,zyy7s) ， 轴 测 投影 面 
法 矢 即 投影 线 8 一 {8.,Sy,8.) ,所 以 


OT。A 


cosy 一 一 一 
107|1，13| 


38 由 投影 角 se 确定 令 
zx 一 tge， ， 则 


了 十 Try。tgs, 十 思 ae 。tge; 
CoOS 细 (5) 
\/ 丛 十 下 十 路 。\A1T 十 te 十 tge: 


令 CP 一 cosg ' 风 得 到 隐藏 圆 可 见 绝 的 存在 条 件 
工 <<|2。R。CP| 

事实 上 ， 在 绘图 之 前 , 应 首先 判断 出 Cr 与 co 哪 
个 是 全 可 见 圆周 ， 全 全 本 作为 丈 芍 各。 
由 图 三 可 以 看 出 , 当 

多 < 90"《〈 即 cosg 盖 0 ) 时 ，Cr 为 可 见 图 

多 之 90'( 即 cos 一 0 ) 时 ,co 为 可 见 加 

乡 一 90"(〈 即 cos% 一 0 ) 时 ,Cr、Co 均 积聚 成 直线 。 

四 编程 粗 框 图 


-一 1， yy 一 tgsgi 
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-本 入 Ty， 它 ， ee 于 


按 公 式 (1D 计 算 8，5 | oOT | 及 示 数 值 十 


根据 Tx，Ty，Tz 确 定 L1，L2 的 正 负 号 
按 公 式 (57 计 算 CP 


源 程 序 : 

5 PRINT CHR 员 (47 ;“PR #1” 

10 REM DRAWIJING ALL HOLE 

15 DIM IV(8,3),V(8;3),SV(8,3),S(6,5),N(6,3) 

20 HGR : HCOLOR 一 3 : P 一 1. 5708 

30 HOME : VTAB 21: INPUTZTX,TY,TZ,S 一 ”TXTY,TZ， 

35 XA 一 140:YA 一 80: 下 TZ<0 THEN TX 一 一 TX:TY 一 一 
TY:TZ 一 一 TZ 

40 INPUT“F1,E2 一 ”;E1,E2:F 一 0:M 一 0 

50 GOSUB 900 

60 T1 王 TAN(E1):T2 一 TAN(CE2) 

70 H=SQR (TX * TX 十 TY* TY 十 TZ *TZ) 

100 IF TX 一 0 THEN BE 一 P:GOTO 120 

110 BE 三 ATN (ABS (TYV/TX)) 

120 IF TZ 一 0 THEN DE 王 P:GOTO 140 

130 DE 一 ATNCSQR(TX * TX 十 TY * TY)/TZ) 

140 SB 一 SIN (BE) :CBE 一 COS (BE) :SD 一 SIN(DE) ,CD=-CoSs 

《DE) :LI 一 1:L2 一 1 
150 正 SGNGCTX * TY)<0 THEN L2 一 一 1 
160 正 SGNCTX x* TZ)<0THEN LI 一 一 1 


170 K1 一 SQR (TX * TX 十 TY * TY 十 TZ * TZ):K2 一 SQR (1 十 
T1xT1 十 T2 *T2) 

180 CP 一 (TX-TY *T1 十 TZ * T2)/(KL x 下 2) 

190 正 CP<< =0 THEN ZV 王 H:ZH 一 0:GOTO 210 

200 ZV 一 0:ZH 一 H 

210 X 一 TX:Y=TY:Z=TZ: GOSUB 430 

220 正 CP< 一 0 THEN C1 一 XA:C2 一 YA:C3 一 XP:C4 一 YP; 
GOTO 240 

230 C1 王 XP;C2 一 YP:C3 一 XA x* C4 一 YA 

240 Z1 一 ZH;G 一 1;GOSUB 300 


245 LILL 一 SQR 〈(C1 一 C3) *《〈C1 一 C3) 十 〈C2 一 C4) * 〈C2 一 


C4)) 
”248 IF LL > 一 ABS (2* R x* CP) THEN 254 

250 Z1 一 ZV:G 一 2:GOSUB 300 

252 GOSUB 500 

253 PRINT“PRINT THE PICTURE ? ”;INPUT“P$ 一 ”;P 趾 ， 下 
了 囊 >“P”"THEN 255 RUN 

254 PRINT CHR$ (4);“PR##1”:POKE 1913,1,PRINT CHR$ 
(17) 

255 PRINT“A NEW PICTURE? ”， INPUT“Y$ 一 ”，Y 串 ， 正 
屿 =“Y”THEN 40 

260 END 

300 FOR A 一 0 TO 4 * P 十 . 1 STEP. 15 

310 X1 一 一 R x COS(A):Y1 一 一 Rx SINC(A):GOSUB 420 

315 GOSUB 430 

320 IF G=2 THEN 350 

330 IF A=0 THEN HPLOT XP,YP:GOTO 410 

340 HPLOT TO XP,YP:， GOTO 410 

350 D1 一 SQR ((C1 一 XP) * 〈C1 一 XP) 十 (C2 一 YP) * 〈C2 一 
YP)) 

360 D2 王 SQR ((C3 一 XP) * 〈C3 一 XP) 十 (C4 一 YP) x* 〈C4 一 
YP)) 

370 下 A=0 AND D1 一 一 D2 THEN HPLOT XP,，YP:， GOTO 
410 

380 IF D1>>D2 THEN F 一 1:GOTO 410 

390 IF D1 一 =D2 AND F 王 1 AND M 一 0 THEN HPLOT XP， 
YP:M=1: GOTO 410 

400 HPLOT TO XP,YP 

410NEXT A; RETURN 

420 X 一 Xl x* CD * CB 一 L2 x*YlxSG 十 LI1x*ZlxSDxeCB: 下 
一 L2 x* XL x CDSB 十 Yl * CB 十 L2x*Lli<*ZIx*SDxSB: 
也 一 一 LELx 上 XSD 十 ZL x*CD 

425 RETURN 

430 XP 一 XA 一 Xx CG 二 Y x SG:YP 一 YA 十 入 xSG x* ST 十 Yx 
STx CG 一 Zx CT: RETURN 

500 REM SOLID 

520 INPUT“L,W 一 ”5L,W 

525 IF GL/2) < 一 R OR (L/2) (一 R THEN PRINT 
“REINPUT” :GOTO 520 


530 FOR I 一 1 TO 8:, FOR J 一 1 TO 3 

535 ON J GOTO 540,560,580 

540 IF I<5 THEN AA 一 L/2: GOTO 600 

550 AA 一 一 L/2: GOTO 600 

560 IF I 一 1 OR I 一 4 OR I 一 5 OR I 一 8 THEN AA 一 一 W/2， 
GOTO 600 

570 AA 一 W/2: GOTO 600 

580 ]F I 王 1 OR I 一 2 OR I 一 7 OR I=-8 THEN AA 一 0，GOTO 
600 

590 AA 一 H 

600 IV(I,J) 一 AA:NEXT JI 

610 FOR I 一 1 TO 8 

620 X1=IV(GU1):Y1=IVG2):Z1=IV(GU3):GOSUB 420 

630 V(L,1) 一 X:V(L,2) 王 Y:V(L3) 一 和 

640 SV(I,1) 一 V(,1) x* CG 一 V(GU2》 * SG 

650 SVG 2) =V(D1) * SG x* CT 二 V(GD2) x CG x CT 十 
V(L3) * ST:SV(T3) 一 V(I3) x* CT 一 V(1) *x SG: 
# ST 一 VG2) * CG * ST 

660 NEXTI 

670 FOR I=1To 6: FORJ=1To5 

680 READ S(J) :NEXT JI 

685 RESTORE 

690 DATA 1,2,3,4,1,2,7,6,3,2,3,6,5,4,3,5,6,7,8,5,4， 
5,8,1,4,1,8,7,2,1 

700 FOR I=1 TO 6:SA 一 S(L,1):SB 一 S(I,2);SC=-S(GI,3) 

7410 U1=SV(SB, 1) 一 SV (SA, 1):U2=-SV(SB, 2) 一 SV(SA，. 
2):U3=-SV(SB,3) 一 SV(SA,3) 

720 Vi 一 SV(SC, 1) 一 SV(SA, 1):V2 一 SV(SC, 2) 一 SV《SA， 
2):V3 王 SV(SC,3) 一 SV(SA,3) 

730 NGL1) =U2 x* V3 一 U3 x V2:N(D2) 一 U3x* V1 一 UL x V3， 
NB3) 王 UL x*V2 一 U2 x*V1:NEXTI 

740 FOR I 一 1 TO 6 

750 IF NGU2)<< 一 0 THEN NEXTI 

755 下 I>6 THEN 790 

760 HPLOT XA 一 SV(S(G1),1) ,YA 一 SV(S(I,1),3) 

770 FOR S 王 1 TO 5， HPLOT TO XA 一 SV(S(GS),1)，YA 一 “ 
SV(SG,S),3); NEXT S 

780NEXT1I 

790 RETURN 

900 REM WORK OUT E1,E2,GA,TH 

910 E1 一 E1/57. 2:E2 一 E2/57. 2 

920 FF E1 一 0 AND 〈(E2>1. 57 AND E2 一 1. 571) THEN GAM 
一 0:GOTO 940 

930 GAM 一 1. 5708 一 El 

940 IF E2>1. 57 AND E2<<1. 571 THEN THETA 一 1.5708; 
GOTO 960 

950 THETA 一 ATN (TAN (E2) * COS(CE1)) 

960 SG=-SIN (GA):CG 一 COS (GA):ST=SIN (CTHETA) :CT 
一 COS (THETA) 
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970 RETURN 

在 源 程序 中 , 10 一 430 行 是 绘制 一 般 位 置 圆 孔 轴 
测 图 功能 段 ; 900 一 970 行 是 子 程序 , 计算 轴 测 变换 函 
数值 功能 段 ; 500 一 790 行 是 绘制 承 孔 板 (六 面体 ) 轴 测 
图 功能 段 , 其 中 
， 500 一 600 行 : 键入 L, W，, 计算 水 平头 孔 板 各 个 顶 

点 的 坐标 。 

610 一 660 行 : 将 水 平板 坐标 转换 成 一 般 位 置 板 的 

空间 坐标 , 并 进而 转换 成 荧屏 坐标 。 


670 一 790 行 : 计算 各 平面 的 外 向 法 矢 W， 判断 各 
表面 的 可 见 性 , 绘 出 可 见面 。 
运行 实例 ， 
RUNUA 
TXTY,TZ,R 一 10,20,15,40w/ 
E1,E2 一 30,55w/ 
LW=120,90wr 
PRINT THE PICTURE ?” 
B 一 Pu 
A NEW PICTURE ? 
奸 =Yw 
El1,E2 一 50,120w/ 
可 画 出 并 打印 一 新 的 图 形 。 
五 .结语 
本 方法 解决 了 一 般 位 置 圆 孔 任意 正 轴 测 图 的 向 
动 绘制 癌 题 , 程序 具有 一 般 性 … 对 于 轴线 垂直 于 或 平 


(上 接 6 页 ) 
件 , 通 常 知道 其 名 称 和 类 型 ,这 两 项 不 是 主要 问题 。 只 
要 经 删除 操作 后 未 对 盘 进 行 任何 写 操作 , 被 删除 文件 
一 定 在 盘 的 自由 空间 中 。 对 盘 的 自由 空间 依次 扫描 ， 
根据 各 种 类 型 文件 的 存放 格式 和 自由 空间 各 块 的 内 容 
即 可 确定 被 删 文件 的 起 始 和 结束 块 号 , 然后 按 文件 目 
录 项 的 格式 重组 一 个 目录 项 ,将 其 插入 目录 区 中 ,并 将 
卷 目录 中 的 现存 文件 个 数 十 1 ,被 删 文件 恢复 了 。 重 组 
的 目录 项 插入 目录 区 的 位 置 应 同时 满足 : @. 重组 目 
录 项 中 的 起 始 块 号 应 大 于 或 等 于 其 前 一 个 目录 项 的 结 
来 抉 号 ; @. 重组 目录 项 中 的 结束 块 号 应 小 于 或 等 于 
其 后 一 个 目录 项 的 起 始 块 号 。 
四 . 特定 情况 下 文件 的 恢复 

当 误 删 文件 目录 项 为 原 有 效 目 录 区 的 最 后 一 个 目 
录 项 时 , 删 去 该 文件 只 是 将 卷 目录 中 现存 文件 个 数 减 
1, 并 将 删 去 文件 的 文件 名 长 度 字 节 改 为 0。 这 时 , 新 


行 于 坐标 面 的 特殊 位 置 圆 孔 及 其 常用 图 形 〈 正 等 测 
图 、 正 二 测 图 、 三 视图 等 )， 只 不 过 是 本 问题 的 特例 而 
已 , 绘图 时 ,只 要 输入 相应 的 Px、.Zr、zz 以 及 投影 角 
避 、 忆 即 可 得 到 。 


图 五 
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有 效 目 录 区 后 的 第 一 个 目录 项 即 为 删 去 文件 的 目录 
项 ,要 恢复 此 文件 ,只 需 按 删除 的 逆 过 程 操作 。 

当 已 知 误 删 文件 目录 在 目录 区 中 的 位 置 和 文件 的 
块 数 时 ,可 用 文件 操作 级 的 M 命令 直接 恢复 。 方 法 
是 : 用 文件 操作 级 的 王 丛 令 得 到 详细 的 盘 目录 , 确定 
误 删 文件 落 在 镭 一 个 <UNUSED> 之 区 内 ，, 若 其 余 的 < 
UNUSED> 区 显示 的 块 数 更 大 , 则 先 用 M< 假 文件 名 
> [ 块 数 ] 造 几 个 假 目 录 , 直到 误 删 文件 所 在 的 到 
UNUSED>> 区 最 大 为 止 , 此 时 用 M<< 文 件 名 > [ 块 数 ] 
即 可 将 误 删 文件 恢复 ,最 后 删 去 假 文 件 。 

结 训 语 

APPLE PASCAL 提供 了 开发 系统 和 应 用 程序 的 良 
好 环境 。 实 践 证 明 , 上 述 方法 是 可 行 的 ,但 恢复 误 期 文 
件 成 功 与 否 取决 于 对 APPLE PASCAL 磁盘 文件 管理 
的 了 解 ,特别 是 对 文件 在 磁 条 中 存放 格式 的 掌握 。 
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APPLEJI 机 用 汇编 语言 给 高 级 语言 数组 变量 快速 赋值 方法 


四 川 大 学 计算 中 心 


周 党 


摘要 :本 文 详细 介绍 了 APPLE 一 革 微 机 用 汇编 语言 给 高 级 语言 数组 变量 快速 虐 值 的 两 种 方法 ,有 一 定 的 深度 和 技巧 


性 ,对 从 事 徽 机 应 用 工作 的 同志 有 一 定 参 考 价值 。 


一 引 富 

随 着 计算 机 应 用 的 发 展 , 微型 计算 机 越 来 越 多 地 
应 用 于 工业 控制 和 数据 处 理 系统 中 , 在 这 些 应 用 中 , 如 
何 节省 内 存 , 提高 运行 速度 和 编程 效率 , 已 成 为 不 可 忽 
视 的 问题 。 高 级 语言 有 较 强 的 科学 计算 、 图 形 显示 和 
数据 处 理 能 力 , 用 于 分 析 计 算 很 方便 , 较 汇编 语言 编程 
效率 高 得 多 , 但 在 高 速 数据 采集 和 实时 处 理 领 域 , 则 力 
不 从 心 。 另 一 方面 , 汇编 语言 运行 速度 快 , 占用 内 存 
少 ,但 进行 复杂 的 科学 计算 和 数据 处 理 比 较 困难 , 编程 
周期 长 ,速度 慢 , 修改 维护 困难 , 因此 ,很 自然 想到 把 汇 
编 语 言 的 快速 功能 与 高 级 语言 的 科学 计算 ,数据 处 理 ， 
图 形 显示 功能 相 结合 , 以 弥补 各 自 的 缺陷 , 使 两 种 语言 
各 自 的 优势 得 到 发 挥 , 以 达到 满意 效果 , 下 面 介绍 的 两 
种 用 汇编 语言 给 高 级 请 言 的 数组 变量 快速 赋值 的 方 


法 ,在 计算 机 应 用 中 经 常 遇 到 而 又 必须 加 以 解决 ,因而 


它 具 有 实用 意义 。 
二 、 在 汇编 语言 程序 下 快速 给 高 级 
语言 的 整 型 数组 变量 赋值 的 方法 

微型 计算 机 用 于 实验 数据 的 实时 处 理 时 ,首先 由 
采集 器 将 模拟 信和 号 转换 为 数字 信和 号, 再 将 数字 信号 送 
入 微机 进行 图 形 显示 和 分 析 处 理 。 实 际 工作 中 , 常 在 
汇编 语言 程序 下 把 给 A/D 转换 后 或 直接 从 采集 设备 
来 的 数据 送 入 微机 内 存 开 辟 的 缓冲 区 对 快速 数据 采 
集 往往 这 样 的 ) ,缓冲 起 始 地 址 的 选择 要 避 开 BASIC 解 
释 程 序 区 .用户 程 序 区 和 汇编 语言 区 。 然 后 把 数据 赋 
给 BASIC 程序 的 数组 变量 ,以 便 用 高 级 语言 进行 处 理 ， 
提高 编程 效率 。 一 般 采 用 BASIC 语言 中 的 PEEK 函数 
来 进行 赋值 , 这 种 方法 很 方便 , 但 若 数据 量 很 大 , 把 这 
些 众 多 的 数据 都 采用 PEEK 函数 给 数组 变量 赋值 , 花 
费 的 时 间 相 当 可 观 。 提 高 速度 的 方法 是 在 汇编 语言 程 
序 中 查找 数组 变量 的 关键 字 , 找 出 数组 的 起 始 地 址 , 然 
后 直接 进行 数据 传输 。APPLESOFT BASIC 语言 的 变 
量 区 安排 在 LOMEM 以 上 和 HIMEM 以 下 的 区 域 , 从 
LOMEM 指针 开始 由 低 向 上 存放 简单 变量 、 数 组 变量 以 
及 字符 串 组 变量 。 对 于 一 维 的 整 型 数组 在 各 元 素 单元 
前 占用 7 字 节 以 说 明 数组 变量 (两 个 字 节 为 数组 名 , 两 
个 字 节 用 于 数组 大 小 , 一 个 字 节 存 放 数 组 的 维 数 , 两 个 
字 节 存 维 数 的 大 小 ),， 然后 是 各 元 素 单元 , 每 一 元 素 单 


元 占用 两 个 字 节 , 高 位 在 前 , 低位 在 后 , 依次 类 推 , 见 图 
1。 数 组 变量 名 是 以 AsCIH 码 存 于 内 存 ,， 对 于 整 型 变 
量 , 每 一 变量 名 的 AScII 码 的 最 高 位 (第 7 位 ) 置 1, 例 
如 整 型 。 变 量 A% 的 ASCI 码 为 C180。 知 道 了 数组 表 
的 结构 方式 及 变量 名 的 存放 格式 ,就 可 用 汇编 语言 直 
接 对 其 变量 赋值 了 。 汇 编 语言 赋值 子 程序 框图 如 图 
2。 对 于 实 型 数组 不 能 简单 的 使 用 这 种 方法 , 它 的 存放 
结构 不 同 于 整 型 数组 , 传送 方法 作 相应 改进 后 ,也 可 使 
用 此 种 方法 , 但 非常 复杂 。 不 过 A/D 采集 器 所 给 出 的 . 
数字 量 大 都 是 整 型 量 ,因此 能 满足 一 般 要 求 。 


最 高 位 为 ! 


工 


最 高 位 为 1 
| 数组 总 长 低位 | 
| 数组 总 长 高 位 | 

维 数 


翰 避 他 下 洲 灿 


表 1. 一 维 整 型 数组 表 结 构 方式 
图 2 只 是 对 8 位 数据 赋值 的 子 程序 , 对 于 大 于 8 
位 的 数据 ， 只 稍 作 一 点 修改 即 可 。 某 些 A/D 转换 器 给 
出 的 数字 量 为 BCD 码 , 将 BCD 码 转换 为 16 进 制 码 就 
可 采用 此 法 。 因 此 这 种 方法 适合 于 一 切 用 A/D 转换 
器 作 输入 设备 ,对 其 数据 快速 赋值 给 BASIC 整 型 数组 
变 基 的 情况 。 图 3 给 出 了 主 程序 框图 。 
三 .BASIC 语言 与 汇编 语言 结合 给 高 级 语言 
的 实 型 数组 变量 赋值 的 方法 
上 面 介绍 的 第 一 种 方法 , 它 适 用 于 由 A/D 转换 得 
来 的 数据 , 这 些 数据 大 多 以 16 进 制 或 BCD 码 表示 , 属 
于 整 型 量 , 因此 直接 用 PEEK 函数 赋值 或 用 汇编 语言 
快速 赋值 , 都 是 很 方便 的 。 但 是 如 果 数 据 是 从 串 行 通 
讯 接 口 板 采 集 的 , 这 些 数据 一 般 都 用 ASCI 码 表 示 , 不 
同 的 仪器 设备 有 不 同 的 数据 格式 , 而 且 是 实数 , 有 小 数 
点 ， 还 有 正 负 号 , 用 第 一 种 方法 显然 是 不 可 能 的 , 若 经 
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1 j 
1 


过 换 码 , 换 成 APPLE-I 的 浮 点 数 表 示 , 再 进行 赋值 , 这 
也 是 相当 复杂 的 , 且 效 率 限 低 , 一 般 天 很 难 实现 。 为 
此 , 本文 提出 了 一 个 有 效 的 解决 办 法 ,用 于 把 串 行 接口 
RS-232C 接收 的 数据 交 给 BASIC 语言 处 理 , 获得 了 很 
好 的 效果 。 


| 
BASIC 变 最 区 


牧 到 给 定 的 整 型 数组 变量 答 
Y 


区 


和 


图 3 主 程序 框 狠 


图 3 主 程序 框图 

这 种 赋值 , 主要 是 要 知道 其 BASIC 程序 缓冲 区 在 

何 位 置 , 怎样 安排 ,数据 区 的 数据 格式 等 。APPLESOFT 

BASIC 程序 在 程序 区 的 存放 格式 , 是 一 种 链 式 结构 , 换 
言 之 ,找到 一 行程 序 ,就 可 知道 下 一 行程 序 在 何 地 方 。 

程序 区 是 从 冰 00 开始 的 , 程序 区 以 一 行程 序 作为 基本 

单位 存放 的 。 这 个 基本 单位 开始 的 两 个 字 节 , 存放 一 

个 链 指针 , 指明 下 一 程序 行 从 内 存 中 的 那个 单元 开始 

(也 就 是 干 一 个 链 指 针 的 首 地 址 在 内 存 中 的 地 址 单元 
号 码 )， 基本 单位 的 随后 两 个 字 节 是 本 程序 行 的 行 号 ， 

14 


接 下 去 是 程序 行 中 的 内 容 , 除了 BASIC 保留 字 用 内 部 
代码 外 , 其 余 码 是 各 字符 的 ASCI 码 , 一 个 程序 结束 时 
吉 入 的 RETURN, 在 此 用 0 代表 , 任何 一 个 程序 行 从 键 
盘 缓冲 区 转 入 程序 区 之 后 , 程序 区 总 存在 一 个 末 程 序 
行 , 它 是 没有 后 续 行 号 的 。 所 以 通常 把 它 的 链 指针 指 
向 的 地 址 及 其 后 续 地 址 (本 应 放下 一 个 程序 行 的 链 指 
针 的 两 个 单元 ), 填 入 0 作为 程序 结束 的 标志 , 程序 区 


的 这 种 链 式 结构 , 示 于 图 4。 


[下 和 程序 普 好 还 你 位 
下 行程 序 首 地 十 高 位 
|。 本币 行 导 低位 


本 行 行 号 高 位 
[未 行程 序 各 语句 
本 
下 行程 序 普 地 址 低位 
下 行程 序 首 地 址 高 位 


村 有 书 融 > | 


本 行 行 可 低位 

本 行 行 号 高 位 

未 行程 序 各 语 局 
国王 喇 王 蕊 下 沽 竹 间 
| 
下 行程 序 首 地 址 低位 
下 行程 序 首 地 址 高 位 

本 行 行 呈 低位 

本 行 行 呈 高 位 

本 行程 序 各 语 知 
| 
ET 

00 


裤 忆 训 全 | 


沪 油 部 水池 


| 程序 尾 标志 


图 4 程序 区 链 式 结构 图 


调用 汇编 语言 数据 传送 子 程序 , 实 
现 一 个 致 据 的 快速 传送 


图 5 赋值 程序 框图 和 
了 解 上 述 程序 区 结构 后 , 还 需 了 解数 据 区 的 格式 
如 每 个 数据 的 长 度 等 ), 就 可 进行 赋值 操作 。 首 先 找 
到 赋值 语句 赋值 号 “二 ”在 程序 区 的 位 置 , 赋值 号 后 预 
先 要 留 出 每 个 数据 的 长 产 。 向 赋值 号 后 的 地 址 单元 传 


” 送 一 个 数据 , 执行 赋值 语句 , 即 实现 了 一 个 数据 的 同 


值 , 重复 此 过 程 , 即 可 实现 对 整个 数组 赋值 了 。 数 据 赋 
值 程序 框图 见 图 5， 下 


从 图 5 赋值 程序 退出 后 , 数据 缓冲 区 的 数据 就 赋 


给 实 型 数组 变量 , 以 后 便 可 以 对 数据 进行 所 需 处 理 。 
此 种 方法 ,作者 在 APPLE 与 MODEL340 分 光 光 度 计 联 


这 里 ，2030 一 2040 名 是 开 写 顺序 型 数据 文件 命 
令 ; 2050 一 2130 句 写 前 导 记录 ; 2140 一 2270 句 写 数 据 
记录 #:2280-2290 句 写 结束 记录 。 


图 6 一 一 一 - 机 进行 数据 处 理 中 已 成 1 实现 ,同时 用 APPLEI 与 
MCC/340 酶 标 比 色 计 联机 进行 数据 处 理 也 采用 了 这 种 
二 本 有一， 且 很 可 靠 , 对 从 事 这 方 
址 单元 泵 
ee 
近 儿 年 来 , 国内 相继 引进 了 许多 带 有 EIARS 一 
232C 串 行 接 只 的 多 功能 、 高 精度 的 智能 仪器 这 些 仪器 
和 计算 机 相连 , 就 能 增加 其 功能 、 提 高 工作 效率 , 为 实 
验 室 自 动 化 提供 了 可 能 , 也 使 通用 微机 发 挥 更 大 的 作 
RE 用 。 因 而 本 文 提 供 的 方法 有 一 定 的 实用 价值 。 
图 6 汇编 语言 数 据 传 关子 程序 框图 
(上 接 18 页 ) 我 们 将 三 .中 的 读 了 AIN.DIF 程序 加 入 : 
2170 PRIT 1j“ 250 240 GOSUB 1000 
.2180 PRINT Q$;X$(DiQS$ 250 GOSUB 2000 
2190 FOR J 一 1 TOV 一 1 以 及 上 述 两 个 子 程序 后 ,就 组 成 一 个 传送 并 处 理 数据 
2200 PRINT“V?” 的 完整 程序 。 它 运行 后 , 将 产生 一 个 新 的 DIE 文件 ， 
2220 NEXT IJ 设 名 为 RAINI、DIF。 容 易 用 Visieale 的 命令 ， 将 
2230 PRINT 13; ,2”50 RAIN1、DIF 读 入 Visicale， 
2340 PRINT Q$i ”5QS$ CITY-A 52 4.33 5.32 14.85 
2250 V1 一 0:V2 王 MX(D :S$ 一“V” CITY-C 3.5 : 3.64 2.3 14. 08 
2260 GOSUB 2330 CITYB 41 64 418 10.04 
2270 NEXTI 在 这 个 新 的 城市 降雨 量 的 表 中 ,增加 了 最 后 一 列 ， 
2280 V1 一 一 1 :V2 一 0:S$ 一 “EOD?” ， 是 各 城市 三 个 月 的 平均 降雨 量 ;而 且 , 城 市 也 已 按 平 均 
、2290 ”GOSUB 2330 降雨 量 的 大 小 顺序 排列 。 
2300 PRINT D $ “CLOSE” ” 闪 、 结 束 语 
2310 RETURN 掌握 DIF 文件 读 、 写 方法 后 , 应 用 上 , 我 们 可 以 编 
2320 PRINTT$ 制 读 、 写 DIF 文件 的 子 程序 , 以 及 一 些 层次 更 深 的 计 
2330 PRINT V1 3;V2 算 或 处 理 变量 的 子 程序 。 适 当 组 织 它 们 为 一 专用 程 
2340 PRINT SS$ 序 , 通 对 专用 程序 就 能 方便 有力 地 利用 Visicale, 解决 
2350 RETURN 


某 一 具体 的 科技 .工程 问题 。 

诚然 , DIE 文件 不 单 为 沟通 BASIC 语言 而 设计 , 它 
也 是 与 其 他 高 级 语言 , 如 FORTRAN、COBOL 等 ， 进 行 
数据 传送 的 接口 。 它 们 之 间 数 据 信息 的 交换 方法 是 相 
同 的 。 


15. 


数据 如 何在 visicale 与 BASIC 程序 之 间 传 送 


福建 水 利 电力 学 掖 李 新 


一 .引言 . 

Visicaic 等 一 类 电子 表格 程序 , 是 微型 计算 机 最 流 
行 的 应 用 软件 之 一 。 它 最 大 的 特点 ,是 输入 、 输 出 数 
据 , 如 则 人们 平常 填写 表格 式 地 进行 ,并且 各 层次 命令 
简单 , 随时 反应 于 屏幕 ; 十 分 直观 、 易 学 。Visicale 还 具 
有 相当 强 的 计算 能 力 , 尤其 当 表 格 中 某 单 元 数据 改变 
时 , 将 自动 地 反 册 到 与 这 单元 数据 有 牵涉 的 其 它 单元 
的 数据 。 所 以 , 在 商业 、 财 务 和 办 公 室 等 方面 , 是 一 个 
很 有 力 的 工具 。 然而 , 对 于 科技 、 工 程 上 的 计算 , 往往 
产生 大 量 中 间 数 据 , 或 者 须 对 数据 进行 更 强 的 逻辑 处 
理 ，Visicalc 就 显得 不 是 那样 简便 有 力 ， 甚至 对 一 些 特 
” 殊 的 数学 函数 的 计算 ,更 是 无 能 为 力 。 

但 是 , 如 果 我 们 把 Visicate 与 高 级 语言 结合 使 用 ， 
困难 将 得 到 解决 , 而 且 还 可 以 充分 发 挥 Visicalc 的 长 
. 处 ,这 将 大 大 加 强 Visicale 的 功能 。 

Visicale 与 高 级 语言 结合 使 用 , 实际 上 就 是 解决 它 
们 之 间 数 据 传送 的 问题 。 本 文 讨 论 Visicalec、Magicalc 
这 类 电子 表格 程序 与 BASIC 程序 之 间 数 据 传送 的 方 
法 ， 了 

二 数据 信息 交换 的 接口 一 DIF 文件 

Visicale 能 够 生成 一 种 特定 格式 的 顺序 型 数据 文 
件 , 即 PDIF (Data Interchange Formate) 文件 , 用 来 在 内 部 
或 对 外 部 进行 数据 信息 的 传送 。 所 以 , 首先 必须 弄 清 
DIEF 文件 的 结构 。 

DEF 文件 由 三 个 部 分 组 成 : 前 导 记录 、 数据 记录 和 
结束 记录 。 

1) 前 导 记 录 (Header Record) 

前 导 记 录 记 载 整个 数据 集合 的 形式 结构 及 其 参 
数 ,格式 中 下 : 

了 4 大吾 ， 5 
0，1 -asaaranwa 


者 下 


TBCTORS 
0， 下 第 二 组 (数据 集 加 
了 
下 用 

了 PES 


0 je=aemaerooreanm 


D474 
0,，0 jaaarsaaamma 


下 香 


16 


以 上 可 见 , 它 包 括 四 组 , 每 组 各 三 项 。 第 一 项 是 标 
题 ; 第 二 项 含 两 个 由 逼 点 踊 开 的 数值 ; 第 三 项 是 由 引号 
括 着 的 空 字 串 。 事 实 上 , 第 一 组 与 第 四 组 的 全 部 资料 ， 
只 是 分 别 用 以 标识 前 导 记 录 的 开始 与 结尾 , 而 第 二 组 
与 第 三 组 则 描述 数据 集合 结构 形式 , 即 怎样 排 成 矩阵 
表 。 

我 们 知道 , 电子 表格 中 的 资料 , 总 是 排 成 矩阵 形 
式 。 例 如 , 三 个 城市 在 第 一 季度 三 个 月 测 得 的 降雨 量 
输入 Visicale 后 , 抢 阵 表 为 ， 

CITY-A 52 433 5.32 

CITYB 41 3.64 2.3 

CITYC 3.5 6.4 4. 18 
这 些 数据 排 成 一 个 三 行 四 列 的 抢 阵 。 答 阵 中 的 元 素 ， 
事实 上 可 以 看 成 二 维 向 量 。 每 行 (或 每 列 ) 中 各 向 量 依 
次 排 成 一 个 元 串 (TUPLE), 称 行 元 串 (或 列 元 串 ) 。 在 
mxXa 和 抢 阵 中 , 行 元 串 的 个 数 等 于 数 行 m, 行 元 串 中 向 
量 的 个 数 等 于 列 数 n。 当 我 们 用 Visicale 的 命令 /S 井 S 
生成 DEF 文件 时 , 若 以 列 顺 序 〈 用 命令 C) 则 产生 行 元 
串 。 这 样 , 前 导 记 录 中 第 二 、 三 组 中 参数 v 一 ny t 一 mi 
反之 , 若 以 行 顺序 (用 命令 R)， 则 产生 元 串 , v 一 mt 一 
n。 例 如 ,上 述 城市 降雨 表 , 今 以 列 顺 序 生成 DIE 文件 ， 
前 导 记 录 中 的 参数 v=4, t=3。 弄 清 参数 v, t 与 所 阵 
表 的 行 、 列 数 的 这 个 关系 , 对 用 BASIC 程序 正确 地 读 、 
写 DE 文件 中 的 数据 ,至 为 重要 。 

(2) “数据 记录 (Data Record) 。 

这 部 分 是 Visicale 工作 数据 本 身 的 记录 (不 包含 单 
元 中 有 关 运 算 的 信息 ) 。 它 按 元 串 的 顺序 排列 。 每 一 
元 串 , 都 以 表示 起 始 的 特定 标志 开头 ,接着 是 一 个 个 数 
据 的 形态 标志 与 内 容 , 其 一 般 格式 为 : 


一 1,，0 
Se Te 
2 “元 中 起 给 标 志 


和 ，N， 

“ 字 串 ]2? 
2，N， 
“ 字 串 2 


于 刘 的 第 一 
(元 串 的 第 一 项) 


人 了 An 


“< 字 囊 m (元 串 的 第 n 项 ) 


这 里 , 起 始 标 志 中 “BOT” 是 表示 Beginning of tuple 


( 即 元 串 的 起 始 )。 第” 项 中 ,Ta 是 该 项 数据 的 形态 标 
示 值 。 标 示 值 有 三 种 : 
一 : 表示 起 始 或 结束 ， - 
0 ”表示 是 数值 型 数据 ; 
1 二。 表示 是 字 串 型 数据 。 
N, 是 第 n 项 数值 型 数据 记录 本 身 。 当 数据 是 数值 时 ， 
“ 字 申 n” 部 分 被 字符 V 代 普 , 即 表 示 是 值 (Value) 。 当 
.数据 是 字 昌 型 时 ，N: 取 0, 而“ 字 捉 m 部 分 就 是 沁 录 第 
n 项 的 字 串 本 身 。 例 如 ， 上 述 城 市 际 量 表 中 第 一 和 
元 串 的 数据 记录 为 ， 
一 1,0 
BOT 
1,0 . 
RE 
0,5.2 1 
WV \ 
0,，4. 33 
V 
0,5, 32 
有 
(3) 结 束 记 录 (End of Data Record) 
结束 记录 是 DIF 文件 结束 的 标志 ,其 格式 为 ， 
一 1 0 
EOD 
这 里 EoD 是 End of .Data( 数 据 结 束 。) 
这 样 , 城市 降雨 量 表 若 以 列 顺 序 存 盘 , 并 名 为 
RAIN. DIF, 则 RAIN.DIF 人 
-_ TABLE 
9 
VECIORS 
0，4 
TUPLERS， 
0,3 


押 理 


。 型 数据 文件 的 语句 即 可 。 


70 


一 1;0 这 


三 .显示 DIF 文件 
乔 清 PIF 文件 整个 结构 的 格式 后 , 就 不 难 用 
BASIC 语言 将 全 部 资料 读 出 下面 就 是 这 样 的 一 个 
APPLESOFT BASIC 程序 , 它 读 出 DIF 文件 的 全 部 资料 
并 显示 于 屏幕 对 于 其 他 系统 , 只 要 修改 相应 的 读 顺 序 


10 HOME 
20 INPUT “NAME OF FIHLE? ”F$ 
30 HOME 
40 PRINT4U# 类 关 DISPLAY;E 帅 8 x 关头 光 罗 
50 PRINT“ ，” 本 
60 II 串 一 CHR$(4) 
PRINT D$;“OPEN”;F$ 
80 PRINT Dj“READ”;EF 币 “ 
30 只 王 CHBR$(34) 
100 INPUT 区 
110 INPUT V1,V2 
120 INPUT.S$ 
130 PRINT 车 
140 PRINT VLi“,iV2 
150 PRINT Qj;S$yQ 
160 正 娃 < >“DATA"GorO 100 
170 INPUT V1,V2 : 
180 INPUT 奈 
190-PRINT V1,“，o3V2: En ， 
。 200. 正 V1=1THEN PRINT 0;s$;0 7 


旬 
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210 正 V1 一 >1THEN PRINT gs 

220 正 S$ 一 ”> “PEopD2”GOTO 170 

230 PRINT D4;“CLOSE” 

240 END 

.这 是 显示 DIE 文件 的 通用 程序 。 运 行 后 , 只 要 给 
出 DIE 文件 名 ,就 能 显示 出 任 一 DIE 文件 的 全 部 资料 。 

* 其 中 , 70 一 90 句 是 开 该 顺序 型 数据 文件 的 命令 ; 90 句 

中 , 34 是 引号 (”) 的 ASCII 十 进 代码 ; 100 一 160 句 是 读 


出 并 显示 前 导 记 录 ; 170 一 220 句 是 读 出 并 显示 数据 记 


录 与 结束 记录 ;240 句 是 关闭 数据 文件 命令 。 
四 、 数 据 由 DIF 文件 读 人 BASIC 变量 
显然 , DIF 文件 的 全 部 资料 不 都 是 Visicalte 工作 数 
据 。 我 们 只 需 全 部 工作 数据 读 入 BASIC 变量 ,其 他 资 
料 可 以 屏 弃 。 一 般 来 说 , 读数 据 的 程序 , 须 针 对 具体 的 
DIE 文件 编写 。 例 如 ， 在 APPLESOF BASIC 下 读 
RAIN、DIF 文件 的 程序 为 : 
10 HOME 
20 D$ 一 CHR$(4) 
30 INPUT “NAME OF FILE ?9 ”FS$ 
40 PRINT 亡 $ ,OPEN?”;F 书 
50 PRINT DieREAD;FS 
60 INPUTTS 
70 INPUTV1,V2  ， 
80 INPUTS 和 
90 ， .下 了 外 一 “VBCTORS” THEN V=V2 
100 FT$ 一 “TUPLESP THEN T 一 V2 
10 FT 一 > “DAfA” THEN 60 
120 DIMX $(CTD),XCTV-1D) 
130(FOR I=-1 TOT 
140 INPUT v1,V2 
150 INPUT S$ 
160 FOR J=0 TOYV--1 
170 INPUTV,V2 
180 INPUTS 和 - 下 
190 EEvl1==1THEN XS$(D 一 S 囊 
200 IF V1==0 THEN XIJ) 一 V2 
210 NEXT1 
220 NEXTI 
230 PRINT DS$ ;“CLOSEy 
260 END 
这 里 ,60 一 80 句 读 DIE 文件 开始 标志 ;90 一 120 句 
是 从 前 记录 中 读 出 参数 v 和 t, 并 用 它们 来 确定 存 贮 数 
据 的 数组 变量 的 维 数 ; 190-200 句 判别 数据 的 类 型 , 以 
便 读 入 不 同类 型 的 变量 。 容 易 看 出 程序 运行 后 , 各 城 
市 的 名 将 读 入 变量 和 $ (D， 三 个 月 的 降雨 量 将 分 别 读 
人 XI 了 。 
' 当 数据 传送 于 BASIc 变量 后 ， 若 需 进 _- 步 处 理 这 
些 数 据 , 可 继续 用 BASIC 语言 编写 程序 。 例 如 , 对 城市 
18 


加 


降雨 量 表 ,我 们 需 按 各 月 平均 降雨 量 的 大 小 排序 ?以 建 
立新 表 。 为 此 ,只 要 在 以 上 程序 中 补 入 排序 的 子 程序 ， 


1000 
1010 
1020 
_ 1030 
1040 
1050 
lo60 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


DIMMXCTD .， 
FOR I 一 1 TOT 

FOR J=1TOYV-1 
MXCD =MXGD 十 XGDID 
NEXT 了 

NEXT I- 

FOR P 一 1 TOT 一 1 

FOR Q=P 十 1 TOT 

IF MX(P)> =MX(Q) THEN 1200. 
W=MXCP) 

MX(P) =-MX(Q) 

MX(Q) 一 W 
WwWg$=X$(CP) ， 
Xg$(P)=X$(Q) 

X$(Q) 一 WS$ 

FOR K 王 1 TOYV 一 1 
W=XCP,K) 

X(P,K) 一 XC(QK) 

X(Q,K) 一 W 

NEXTK . 

NEXT Q 

NEXT P 

RETURN 


五 、. 回 送 数据 于 Visicalc 本 
.经 BASIC 语言 处 理 后 的 数据 ， 最 后 往往 是 要 送 回 
Visicale, 这 样 ， 才 完 全 利用 了 它 的 特性 。 这 步 工 作 , 实 
人 将 数据 写成 DIF 文件 。 这 里 , 我 
们 仍 以 降雨 量 的 表 为 例 , 将 上 述 经 排序 处 理 后 的 数据 ， 
用 APPLESOFT BASIC 编写 生成 DIF 文件 的 子 程序 。 


2000 
_2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


Qg$ 一 CHR$(34) 

PRINT 

INPUT “NAME OF NEW FILE? ”5F 多 
PRINT D$ ;“OPEN”;F$ 
PRINT D$j “WRITE”;F$ 
V1=0:V2=-1 

下 $ 一 “TABLE”;S 和 一“ ” 
GOSUB ?3320 

T$ 一 “VECTORS”;V2 一 V 十 1 
GOSUB 2320 . 
T$ =“TUPLES”;V2:-=T 
GOSUB 2320 

T$ 一 “DATA";V2 一 0 

GOSUB 2320 

FOR I 一 1TOT 

VI1 一 一 1:V2=0 :S$ 王 “BOT?” 
GOSUB 2330 〈 下 转 15 页 ) 


Retro Workahop 
梨 六 工作 室 


在 APPLE CP/M 操作 系统 中 
增加 文件 比较 命令 COMP 


宁波 效 实 中 学 “” 施 吉 哆 


1 
在 IBM PC/XT MS 一 DOS 操作 系统 中 , 文件 操作 
命令 的 其 中 之 一 是 文件 比较 命令 COMP, 这 条 命令 用 
于 文件 问 的 比较 ,可 用 来 检查 文件 复制 的 正确 性 , 通 
常 这 条 命令 可 以 在 COPY 命令 操作 之 后 使 用 , 以 确保 
复制 文件 和 源 文 件 完 全 相同 。 然 而 在 APPLE CP/M 
操作 系统 中 却 无 这 个 文件 比较 命令 。. 

最 近 笔 者 在 APPLE 联想 式 汉字 系统 上 (该 系统 由 
APPLE 微机 系统 和 汉字 扩展 部 件 两 部 分 组 成 , 在 CP/ 
M 操作 系统 下 , 由 Z80 CPU 控制 该 扩展 部 件 进 行 工 


作 ) 对 文字 编辑 软件 wordstar 加 以 汉化 , 在 开发 过 程 . 


中 , 由 于 需要 , 在 CP/M 操作 系统 中 增加 了 文件 比较 
命令 COMP, 该 命令 比较 IBM PC/XT MS 一 DOS 中 的 
COMP 显 的 简单 灵活 ,同时 在 此 基础 上 又 加 强 了 其 功 
能 , 使 得 对 不 同 长 度 的 文件 亦 可 进行 比较 。 在 比较 过 
程 中 , 如 果 发 现 不 同 , 还 将 显示 相应 地 址 单元 的 不 同 
值 。 由 于 APPLE CP/M 操作 系统 中 文件 不 采用 树 形 
结构 自 录 , 因此 该 命令 行 格式 中 省 略 目录 路 径 这 一 可 
选项 。 

现 将 该 命令 的 形成 及 使 用 方法 介绍 如 下 。 

一 `COMP 的 命令 生成 

操作 者 将 本 文 后 面 源 程 序 通过 ED 命令 以 
COMP、E80 名 字 存 在 盘 上 , 然后 经 汇编 (ASMB)、 连接 
CLINK) 后 可 生成 COMP COM 文件 , 即 文件 比较 命令 
COMP 。 

二 文件 比较 命令 COMP 的 使 用 方法 

功能 :比较 两 个 指定 的 文件 内 容 。 

命令 行 格式 ， 

COMP[d: ]filenamei[L.ext] [d:jfilename2[L. ext] 

， 说 明 ; 这 条 命令 是 一 个 外 部 命令 。 它 进行 的 是 两 
个 文件 间 的 比较 , 而 不 是 两 个 整 盘 内 容 的 比较 。 在 命 
令 行 中 , 第 一 个 参数 量 是 初级 文件 , 第 二 个 参量 是 次 
级 文件 , 要 进行 比较 的 两 个 文件 可 以 在 相同 的 盘 上 ， 
也 可 以 是 在 不 同 的 盘 上 。 如 果 命 令 行 中 所 指定 的 文 
件 之 一 在 相应 的 盘 上 找 不 到 , 将 显示 File not founad. 
(文件 未 找到 ) 如 果 比 较 中 发 现 有 不 同 的 内 容 , 将 显示 
相应 的 地 址 及 两 个 不 同 的 内 容 。 如 果 比 较 成 功 , 则 显 
示 File compare OK 。 

使 用 COMP 命令 应 该 注意 以 下 两 点 : 
(1) 如 果 要 比较 的 两 个 文件 是 在 两 个 不 同 的 盘 
上 ,那么 它们 可 以 有 相同 的 文件 名 。 


〈2) 如 果 文 件 的 长 度 不同 , 则 对 这 样 的 两 个 文件 
进行 比较 时 ,比较 工作 到 较 短 文件 结束 时 为 止 。 
+ compare two files, 证 data in same address ia not equal, display; 
address and data. if filesiength is not egqual ，compare uncill cnd of 
shorter filie. 


BOOT EQU 0000H 
BDOS EQU 0005H 
FCB1 EQU 005CH 
FECB1CR. EQU EFCB1 十 32 
FCBO EQU 006CH 
DBUF1 EQU 0080H 
TPA EQU 0100H 
PRINT EQU 9 
OPENF EQU 15 
READE EQU 20 
PDMAF EQU 26 
ORG TPA 
START LD PDE,CPRT 
CALL * DISP 
+; MOVE FCB2 
HL,FCBO 
LD DE,FCB2 
LD BC,10H 
LDRR Sa 
; set counters to primary value 
XOR . 入 
(FECB2CR) ，A “4 
LD 《FCB1CR)，A 
” LD CA 
也, 人 
;OPEN FIHLES . 
LD DE,RFCB1 
CALL OPEN 
LD DE,NOFILLE 
INC A | 
JR 卫 "FINIS | 
LD DE,FCB2 . 和 
， CALL OPEN 
D DE,NOFILE 
INC 全 
限 Z,FINIS 


;Read files 
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LOOP LD- IDE,PBUF1 


CAELL PDMA 
LD DE,FCB1 
CALL READ 
二 OR A 
, 了 极 _NZ;EOFILE 
LD DE,DBUF2 
CAILL DMA 
DE,FCB2 
CALL READ ， 
OR A 
节 NZ,EOPILE 
POP BC 
EXX 
LD C,80H 
LD PE,DBUF1 
ELD HL,DBUF2 
COMP ELD ”， A,CDE) 
IDp B, CHU) 
# CP 也 
琢 Z;OK 
CALL NOTEQU 
OK DEC C 
LD A,C 
OR A 
职 Z,READRD 
INC pPE 
INC HL 
、 
INcC Bc 
EXX 
匡 COMP 
READRD EXX 
INC BC 
PUSH BC 
了 青  ，LooP 
EOFILE LD DE,COMPOK 
ED A,(DIFFER) 
OR A 人 
再 Z,FINIS 
LD DE,EOCOMP 
FINIS ， CALL DISP 
卫 BOOT 
1 SYSTEM INTERFACE SUBROUTINES 
OPEN LD C,OPENF 
卫 BDpOos 
DMA LD C,DMAF 
邢 BBPOS 
READ LD CREADR 


DISP 


NOTIEQU 


5 


宝 人 


SIART 


令 APPLEI 显示 目 录 命 念 改 为 DIR 


中 山大 学 ” 莫 日 华 


APPLEI 显示 磁盘 文件 目录 的 Dos 命令 为 
CATALOG，, 命令 名 太 长 ,使 用 起 来 不 方便 , 而 且 与 其 它 
。 再 号 计算 机 的 粗 应 命令 不 一 致 , 例如 TRS-80、IBM PC 
等 都 是 用 DIR。 我 们 可 以 令 APPLEI 也 使 用 DIR, 方 法 


是 将 DOS 在 内 存 中 的 映 象 修改 ,使 DoS 命令 名 表 中 的 


CATALOG 改 为 DIR, 然后 再 生成 一 片 新 的 DOS 系统 
软盘 。 

CATALOG 在 内 存 命令 名 表 中 的 首 字符 地 址 为 
$A8D2, 命令 名 的 ASCII 码 分 别 为 $43， $41， $54， 
$41，$4C，$4F，$C7 (最 后 一 字 码 不 是 $47 而 是 
$c7, 即 最 高 位 加 了 1, 表示 该 命令 名 表 完 ) 。 现 要 改 
为 DIR 即 改 为 $44，$49 和 $D2, 多 出 的 空位 置 要 消 
除 掉 。 具 体 做 法 如 下 ， 

上 先 准备 两 张 软磁盘 ， 
一 片 空 磁盘 。 
1. 使 用 原 DOS3. 3 系统 盘 ,启动 DoS 系统 。 
2. 进入 监控 状态 


一 片 原 Dos3. 3 系统 盘 和 另 ， 


]CAELL 一 151wi/ 

3. 将 $A8D2 一 $A8D4 的 内 容 修改 为 $44， 49， 
$D2 

4. 将 命令 表 中 $A8D9 一 $A908 的 内 容 前 移 四 个 位 
置 , 以 消除 多 出 来 的 空格 。 
x A8D5<<A8D9. A908M 

5. 按 CTRL 一 C 键 退 出 监控 ,返回 DOS 状态 。 

6. 插入 空 磁盘 , 用 INIT 命令 初始 化 该 盘 , 修改 后 的 
DOS 即 存 入 盘 中 ,成 为 新 系统 盘 。 : 


7. 将 原 DOS3. 3 的 所 有 文件 用 FID 复制 到 新 系统 盘 。 
至 此 便 完成 了 显示 目录 俞 令 的 修改 , 以 后 用 新 的 
系统 盘 启 动 , 就 可 以 用 DIR 命令 来 显示 磁盘 文件 目 
录 。 
如 果 想 对 DOS 作 更 多 的 修改 , 可 参阅 由 中 山大 学 
出 版 社 出 版 的 APPLEIHI 微电脑 使 用 人 
关 “Dos 的 修改 "一 节 。 


APPLEI 机 、 单 板 机 通用 数 横 转换 (A/D) 卡 


"本 卡 是 八 位 八 通道 模 数 转 换 装 置 ， 它 能 直接 与 华 
果 机 、Z80 单 板 机 配 接 ， 进行 数据 采集 和 处 理 ， 功能 好 ， 
价格 低 。 

主要 技术 指标 : 

1、 八 个 模拟 输入 通道 ' 可 由 程序 选择 ， 

2、 转 换 采 用 8 位 二 进 制 数 ,， 并 行 输出 , 分辨 率 为 

1/2563 


* 3 转换 时 间 :<1001S; 
4 采 数 时 间 : 用 BASIC 开 27ms/ 次 
用 6502 汇编 所 140ks/ 次 ; 
5、 模 拟 输 入 电 于 范围 :0 一 5 伏 ; 
6、 工作 电流 :30mA; 
3 7 外 形 天 十 :80XI10mm。 
销售 价格 为 235 元 ,需要 考 请 人 
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Data areas 
，CPRT DB 0DH,0OAH,0AH, Pile 
Compare urility?,0DH,OAH 

DB Copyright by SHI DMING，- 
30- 一 Dec 一 8750DH,OAH,OAH, 中 | 

NOFILE DB WEile not fond ,中 

COMPOK DB IEiles compareok, 刷 

EOCOMP DB . fEnd oaf compare ,中 

DIFFER DB 0 

FCB2 

ECB29R EQU PFCB2 十 32 

DBUF2 EQU FCB2CR 十 32 


有 


实用 程序 。 


在 Applesoft 下 超 千 万 数值 运算 子 程序 


说 新 矿业 学 院 ， 于 建华 


我 们 在 苹果 机 上 开发 财务 管理 系统 时 , 由 于 入 软 
件 使 用 了 Applesofr 及 仓 额 汉 卡 ， 遇 到 超 二 万 数 信 的 运 
算 问 题 。 

Applsoft 的 数字 变量 的 有 效 数字 位 数 只 有力 位 ， 
当 位 数 再 多 时 也 只 以 科学 记 数 法 记 数 。 在 财务 管理 
系统 中 不 能 采用 科学 记 数 法 来 记 数 , 所 有 的 金额 数字 
, 均 须 保留 小 数 点 后 两 位 有 效 数 字 。 这 样 , 整数 位 数 最 
多 只 有 七 位 。 即 当 金 额 超过 千 万 以 后 , 分 值 的 金额 就 
自动 舍弃 为 零 。 如 果 不 能 正确 她 处理 有 效 数 字 的 问 
题 , 该 财务 系统 就 没有 使 用 价值 。 为 此 , 我 们 编写 了 
一 个 专用 子 程序 。 它 可 以 进行 两 个 数字 的 加 减法 。 
其 数字 的 整数 位 数 不 限 , 均 能 正确 运行 ; 并 精确 到 小 
” 数 点 后 两 位 ， 满足 了 财务 笑 理 系统 的 需要 ; 解决 此 问 


题 对 推广 莹 果 机 的 使 用 还 是 有 价值 的 。 因 此 ， 我 们 将 . 


此 程序 提供 给 读者 参考 。， r 
一 使 用 要 求 及 注意 事项 ， 
(1) 输 入 :: 
Q@ 输 入 的 两 个 妆 均 须 是 字 竹 谈 量 。 
@@ 输 入 数字 的 标准 格式 为 ， 
XXX，XX 或 …XXX,.X0 和 或 …… 汉 
XXX. 00 即 整 数位 数 不 限 , 而 小 数 点 后 必 
须 是 两 位 字符 。 如 果 是 零 时 , 也 要 将 零 
”字符 输入 。， 
图 正 数 可 以 不 带 符号 输入 。 负数 必须 区 
“一 ”号 输入 。 
… 余 以 加 法 为 例 : 调用 该 子 程序 前 , 级 将 加 数 
2 给 变量 FIRST$; 被 加 数 送 给 变量 
SEC$。 
(2 输出 : 
@@ 所 得 结果 (和 或 差 ) 存 放 在 变量 SG$ 中 。 
加 输出 的 结果 符合 输入 的 “标准 形式 ”。 即 
小 数 点 后 两 位 已 经 是 自动 添 零 补 齐 。 斯 
以 如 果 做 连续 的 加 减法 运算 ; 就 不 用 考 
虑 是 否 符合 其 标准 形式 。 其 结果 可 以 直 
接 打 印 。 符 合 财务 要 求 的 形式 : 即 小 数 
”点 后 两 位 自动 添 零 朴 齐 。 
， (3) 注意 该 程序 使 用 的 变量 名 较 多 。 因 此 与 主 程 
序 中 变量 名 不 要 发 生 冲 突 ,以 免 出 错 。 
该 程序 的 优点 是 : 当 运 行 时 , 如 果 两 个 数字 均 不 


22 


后 新 市 通讯 电缆 厂 甘 重 


超过 百 万 时 , 其 运行 速度 不 受 影 响 。 一 旦 其 中 一 个 数 
字 超 过 百 万 时 , 特别 是 做 大 量 连续 加 减法 时 , 频繁 调 
用 该 子 程序 时 才 会 降低 其 运行 速度 。 但 仍 不 失 其 使 
用 价值 。 
(4 该 程序 是 以 两 数 做 加 法 为 例 。 如 欲 做 减法 
时 ， 机 
可 。 
《5) 该 子 程序 用 一 个 自 定义 函数 ， 
”FENA(DV) =INTCDV * 100 十 0.5)/100 它 用 
于 四 舍 五 入 以 保证 精确 到 小 数 点 后 两 位 。 应 
将 其 先 写 入 主 程序 内 。 
二 ,程序 站 
2500 Al 一 VAL (FIRST$) :B1 一 VAL 
”SEC$) 
2502 IF ABS (Al) 之 999999. 99 OR 
ABS (B1)>>999999. 99 THEN 2 
506 
2504 C1 一 Al 十 Bl1;DV 一 Cl:DV=-FN 
A(CI) 
2505 GOSUB 3000:RETURN 
2506' AA$:=EIRST 叫 :GOSUB 2600:Bl 囊 
一 味 :BVS=Qv$ 
2507 AA$ 一 SEC$:Al 一 B1:GOSUB 26 
00 
2508 C1 一 VAL(CB1$) 十 VAL(Q 和 ) ; 
DV=VALCBV$) 十 VALCQV 中 ) 
:DV 一 FN A(DV) 
2510 IF CI1< >>O THEN 2514 
2512 GOSUB 2580:RETURN 
2514 IF DV 一 O THEN GOSUB 2800， 
RETURN 
2516 本 Ci<O THEN 2530 
2518:IP DV<O THEN 2524 


， 2520 下 DV>> 一 1000000 THEN C1 一 


clI+1:DVv=DVv 一 1000000:pv= 
FN A(CDV) 

2522 GOSUB 2580:RETURN 

2524 Ci 一 Cl 一 1:DV=DV 十 1000000 
:DV 王 FN A(DV) :GOSUB 2580 
:RETURN 

2530 FF DV<0 THEN 2534 


2532 Cl 一 C1-1:DV 一 DV 一 1000000 
;DV 王 ABSCDV) :GOSUB 2580 
;RETURN 
2534 DV 二 ABS (DYV) 
2536 IF DV>> 王 1000000 THEN C1， 
cl 一 1:Dv=Dv-1000000:Dv= 
FN ACDYV) 
2538 GOSUB 2580 ;RETURN 
TF CI 一 0 THEN GOSUB 3000:， 
RETUTN 

2582 GOSUB 800:RETURN 

2600 AB 王 ABSCA1):IF AB> 一 1 
.000000 THEN 2620 

2610 只 王 “0”:QV$ 一 AA$:RETURN 

2620 QV$=- RIGHT$ (AA$,9):D=， LEN 
(CAAp) 2 

2630 DA = LEN (Qv$) :D=D 一 DA:Q 
$=_LEFT$ (AA$,D) 

2640 IF Al 之 0 THEN RETURN 

2650 Qv$=“ 一 "上 Qv$:RETURN 

2652 REM 一 一 一 一 一 一 一 一 


2800 C1$ 一 STR$ 《Cl) :IF DV=- 0THEN 


SG$ 一 C1$ 十 <“000000. 007:RETURN 
2810 IF DV<<0 THEN 2830 
2820 GOSUB 2850:SG$ 一 C1$ 十 SG$: 
RETURN 
2830 DV = ABS (DV):GOTO 2820 


DV$:RETURN 
2850 DZ$ 一 “0”:DV$ 一 STR$ (DV x* 
(上 接 38 页 ) 
170 Y=Y+1: IF INT (CY/ (X2 一 Xl)) (一 Y2 230 NEXT 
AND INT(Y/ (X2 一 XH)) ) 一 YL AND P 一 1 240 PRINT:PRINT:PRINT:PRINT 
THEN PRINT A 岂 ; 245 PR 扩 0 
175 IFP=2THEN A$(CY)=A$ ， 250 “END 
180 NEXT; IF INT (Y/ (X2 一 X1D)) (一 Y2 AND 500 PR 并 1 . 
INT (Y/ (X2 一 X1))) 一 Y1 AND P 一 1 THEN .505，PRINT:PRINT:PRINT:PRINT 
PRINT“! ”:PRINT“1 2 510 IF P 一 1 THEN PP 一 5:GOTO 520 
190 NEXT: NEXT;: IF P 一 1 THEN NEXT: GQTO 515 PP 一 4 : 
240 ER 520 PRINT CHR$(27);“A”;CHR$CGPP) 
200，FOR E 一 1 TO 7: PRINT “1 %: FOR F 一 Y2 525 “PRINT CHR$(15)》 
TO Y1 STEP 一 1 526 PRINT CHR$(27);“G” 
210 PRINT MID 当 (A$(F),E,1); 530 RETURN 
220 NEXT F:PRINT“! ”:NEXT 


1 100):pDV$= RIGHT (pv$,2):D 
一 LEN (DVv$) :IF D<1 THEN 
DV$ 一 必 0” 十 DV$ 
2852C 球 - STR (INT (DV)):D = 
LEN (Cl) :D 一 6 一 D 
2855 IF D 一 0 THEN SG$ 一 C 囊 十 < 
. ”十 DV 囊 :RETURN 
2858 IF D =1THEN 2865 
2860 FOR X =1TO D-1:Dz$= DZ 
下 二 “0":NEXT X 
3865 sG$ 一 DZ 十 c 昌 十“. ”十 DV$， 
.RETURN 
2868 REM 一 一 一 一 一 一 一 一 一 一 一 一 
3000 IF DV =0 THEN SG$=“0. 00” 
;RETURN  ， 
3010 IF DV 一 0 THEN 3030. 
3015 IF DV <1 THEN SG$=-“0" 十 
STR$(DV) :RETURN 
3020 GOSUB 3050:RETURN 
3030 py = ABS (Dv):GOSUB 3050: 正 
DV<1 THEN SG$ 一 “一 0" 十 SG$ 
:RETURN 
3040 SG 一 “一 "十 SG$:RETURN 
3050 DVv$= STR$CDV x 100) :Dv$ 二 
RIGHT 和 〈(PDV$. 2) :Cl 一 STR 吊 
(INT (DV)):SG$ 一 C 贰 十 “2 十 、 
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大 批量 数据 的 快速 排序 


”南通 师 专 


排序 在 实际 应 用 中 是 经 常 磁 到 的 ,尤其 对 批量 大 
的 排序 ,运行 速度 快慢 与 消耗 内 存 多 少 是 至 关 紧 要 的 。 


若是 对 几 十 个 或 几 百 个 数据 的 排序 , 即使 效率 低 、 


些 , 问题 还 不 大 , 当 数据 超过 一 千 以 上 甚至 一 万 以 上 
时 ,其 排序 方法 的 优 缺 点 ,往往 成 了 工作 的 成 败 关键 之 
一 , 有 的 运行 速度 高 , 但 占有 内 存 大 。 有 的 内 存 节省 
了 ; 却 效率 爸 , 要 做 到 既 要 速度 快 ,又 要 省 内 存 ,不 太 容 
易 。 对 已 介绍 的 排序 ,确实 有 不 少 好 的 ,但 都 难于 照顾 
， 到 高 效 、 低 耗 的 两 全 之 策 。 不 论 是 置 泡 法 、 对 分 法 …… 
都 离 不 开 大 小 比较 和 数据 交换 这 个 思路 , 因此 效率 和 
内 存 占 有 方面 总 是 改进 不 大 。 

我 们 在 实践 中 摸索 到 了 一 种 方法 。 打破 常规 ， 不 
.比较 ,不 交换 ,数据 进入 内 存 一 次 排序 成 功 。 也 就 是 说 
最 后 一 个 数据 进入 内 存 ， 排序 就 宣告 已 完成 。 这 是 在 


.排序 上 的 一 种 突破 , 一 般 的 方法 在 苹果 机 上 对 一 万 个 
数据 排序 至 少 要 在 六 十 小 时 以 上 。 而 且 我 们 这 个 方 


.法 ,用 不 了 一 个 小 时 , 而 这 一 小 时 不 全 是 用 在 排序 上 ， 
-而 是 包含 产生 数据 ,上 边 讲 过 排序 是 几乎 不 占 时 间 的 ， 
只 要 最 后 一 个 数 进 入 内 存 , 排序 就 已 宣告 完成 了 。 我 
们 这 种 排序 的 方法 ,经 过 多 次 检验 是 可 行 的 ,结合 不 同 
的 实际 应 用 * 单 独 编制 一 此 程序 效率 会 更 高 , 现 将 华 果 
”机 上 已 试验 结果 说 明 如 下 : 
数据 个 数 
”1000 
2000 


运行 时 间 
-0.5 分 钟 ，- 
1 分 钟 ， 
3000 2 分钟 
4000 3 分 钟 ，: 
以 上 时 间 包 括 产生 数据 , 实际 排序 时 还 要 分 一 般 
批量 大 的 数据 不 在 苹果 机 上 排序 , 据 最 近 介绍 比较 好 
的 程序 。 在 莘 果 机 上 处 理 的 最 多 数据 是 1200 个 , 若是 
1400 个 数据 , 就 因为 内 存 不 是 而 不 能 运行 了 。 本 程序 


可 以 处 理 两 万 个 数据 ,假如 对 程序 撒 作 补充 和 修改 ,就 


可 以 在 苹果 机 上 处 理 上 训 万 个 数据 的 排序 。 
程序 说 明 ， 
以 招生 录取 为 例 , 假定 考试 六 门 课程 总 分 为 600。 
一 、 确 定数 组 元 素 , 30 句 中 A 数组 中 存放 不 同 的 
总 分 数 。 如 A(529) 就 表示 总 分 为 529 的 全 部 人 数 ,在 
程序 执行 时 对 具有 不 同 总 分 的 人 数 就 分 别 昧 加 到 对 应 
的 数组 元 素 中 , 在 A$ 字 符 串 数组 中 存放 不 同 总 分 的 考 
_ 生 叶 码 (或 名 字 ) 如 A$(529) 表示 所 有 总 分 为 529 的 考 
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宋 竺 


生 号 码 (或 名 字 ), 全 部 以 字符 形式 存放 在 A$(529) 中 。 

” 二、 利用 数组 元 素 的 有 序 性 , 实现 数据 排序 , 在 程 
序 执行 旺 , 对 具有 不 同 总 分 的 人 数 和 考生 号 码 就 已 分 
别 进入 对 应 的 数组 元 素 与 字符 数组 元 素 ， 所 以 实际 上 
已 实现 了 排序 。 

三 、 一 共 只 用 了 两 个 单 循 环 , 第 一 个 循环 实现 读数 
与 排序 。 第 二 个 循环 打印 输出 。 整 个 程序 只 有 十 五 
行 ,在 苹果 机 上 可 以 直接 处 理 二 万 个 数据 的 排序 ,运行 
时 间 却 只 有 同类 排序 时 间 的 五 十 分 之 一 。 

]LIST 

10 INPUT“N 一 ” NIN= N 十 1000 

20 PRINT “NO:”; TAB (10) “CS;”; TAB (20) 

“TO， 力 - 

30 DIM A(600),A 下 (600) 

40 FOR I 一 1001 TON 

50 S=INTCRND(1) x 600) 

60 A(CS) 一 A(S) 二 1 

70 A$(S) 一 A$CS) 十 STR$(D 

80 NEXT I:T 一 0 … 

90 “FOR I 王 599 TO 1 STEP 一 1 

100 下 AGD 一 0THEN 150 

-110 FEOR S 一 0TO A(D 一 

”120 T=T 十 1 

130 PRINT T; TAB (10); MIHD 池 (AsCD， 1 十 S * 

4 4)3 TAB(2075I 

140 NEXTS 

150 NEXTI 

160 END 


DELIST 
10 INPUT“N 王 ”wwN:N 王 N 十 1000 
20 PRINT“NO:”; TAB (10》 “CSi” TAB (20) 
erTo.” 
30 ”DIM A(600) ,A$(600) 
40 “FOR I=1001TON 
50 S= INTCRND(1) * 600) 
60 A(GS)=A(CS) 二 1 
70 A$(S) 一 A$(S) 十 STR$(D 
80 NEXTI:T=0 
90 FOR I=-599 TO 1 STEE 一 1 


100 IF ACD 一 0 THEN 150 

110 FOR S=0TOAC 一 1 

120 T=T+1l 

130 PRINT TiTAB (10); MID 和 (CA$D ， 1 二 Sx 4， 
;TAB(C20);I 

140 NEXTS 

150 NEXTI 


“ 经 验 交 流 ， 


87 年 第 1 期 问题 征 答 》 参 考 答案 


上 海 科技 大 学 无 线 电 系 潘 锐 


如 果 想 用 黑白 或 彩色 电视 机 作为 显示 器 ， 可 将 
Apple 机 的 视频 信和 号 输出 端 电缆 直接 输入 至 下 图 调制 
器 。 调 制 器 的 发 射频 率 可 在 1 一 5 频道 之 间 任 意 调整 。 
该 调制 器 至 少 有 10 米 的 发 射 距 离 , 使 用 十 分 方便 , 也 
不 影响 电视 机 的 正常 收看 。 调 试 方便 ,只 需 将 各 工作 
点 调 好 后 , 拉动 坟 线圈 可 调整 至 二 频道 。 直 至 图 象 稳 
定 为 止 。 


内 径 O5 
长 度 11mm 


1008 527 
2 1003 507 
3 1004 504 
4 1002 485 
5 1005 355 
6 1007 251 
7 1009 221 
8 1006 160 
9 1001 78 
10 1010 .73 . 


调试 程序 
浙江 大 学 中 心 实验 室 郑 平 


有 一 个 功能 较 强 的 调试 软件 对 加 快 编制 和 分 折 机 
器 语言 程序 是 很 有 效 的 。 在 早期 苹果 机 监控 程序 中 ， 
除 有 内 存 、 寄 存 器 检查 修改 和 反 汇 编 等 指令 外 , 还 有 单 
步 跟 踪 (Step) 和 连续 跟踪 (Trace) 功能 。 但 是 现在 多 数 
机 器 没有 此 功能 。 本 文 根 据 原 非 自动 启动 监控 程序 中 
的 S.T 指令 进行 改编 .增设 了 可 设 断 点 的 跟踪 指令 。 

方法 一 : 因为 当 使 用 语言 板 上 整数 BASIC 的 同 
时 , 监控 程序 也 是 使 用 语言 板 上 的 。 所 以 如 果 有 语言 
板 ,我 们 就 可 以 直接 在 语言 板 上 修改 监控 程序 ,使 之 具 
有 S( 单 步 跟 踪 ) 和 T( 连 续 跟 踪 ) 指令 的 功能 。 改 写 方 
法 :将 INTBASIC 装 入 语言 板 后 , 从 整数 BASIC 进入 监 
控 程 序 , 键 入 : 

x C081 <CR> 
C083 <CR> 

解除 语言 板 的 写 保护 ,键入 下 面 列 出 的 内 存 值 。 

* FA40.FB18 

FA40 一 FF FF FF 20 D0 F8 68 85 

FA48-…- 2C 68 85 2D A2 08 BD 10 

-FA50 一 FEB 95 3C CA DO0 F8 Al 3A 

上 A58 一 FE0 42 A4 2F C9 20 F0 59 

FA60 一 C9 60 F0 45 C9 4C F0 5C 

FA68 一 C9 6C F0 59 C9 40 F0 35 

FA70~- 29 1F 49 14 C9 04 F0 02 

FA78-- B1 3A 99 3C 00 88 10 F8 

FA80 一 20 3F FF 4C 3C 00 85 45 

FA88-- 68 48 0A0A 0A30036C : 

， FA90 一 FE 03 28 20 4C FF 68 85 
FA98 一 3A 68 85 3B 20 82 F8 20 
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FAAI0 一 DA FA 4C 65 FF 18 68 85 
， FAA8 一 48 68 85 3A 68 85 3B A5 
FAB0 一 2F 20 56 F9 84 3B 18 90 
FAB8 一 14 18 20 54 F9 AA 98 48 
FAC0 一 8A 48 A0 02 18 B1 3A AA 
FAC8 一 88 Bi 3A 86 3B 85 3A B0 
FAD0 一 F3 A5 2D 48 A5 2C 48 20 
FAD8 一 8E FD A9 45 85 40 A9 00 
FAE0 一 85 41 A2 FB A9 A0 20 ED 
FAE8 一 FD BD 1E FA 20 ED FD A9 
FAF0 一 BD 20 ED FD B5 4A 20 DA 
FAF8 一 FD E8 30 E8 60 18 A0 01 
FB00 一 Bl 3A 20 56 F9 85 3A 98 
FB08 一 38 B0 A2 20 4A FF 38 B0 
FEB10 一 9E EA EA 4C 0B FB 4C FD 
FB18 一 FA 
xx 上 B9D 
FB9D 一 EA 
x 下 BB3. FBBA 


-。 ”FBB3 一 c4 C2 CL FF C3 
FBB8 一 FF FF FF 
x FEC2. FEC9 


PEC2 一 C6 34 20 75 FE 4C 
FEC8 一 43 FA 
s 关 下 RCR 


FFCF 一 ED 
x FFD2 


FEFD2 一 EC 
# 下 FE9 


FFE9 一 C3 
< 和 FFC, FFEFE . 


FFFC 一 59 FF 86 ， 
修改 完 后 把 $D000 一 $EFFF 的 内 容 以 INTBASIC 名 存 入 
磁盘 , 便 可 使 用 S,T 指令 。 命 令 形 式 ， 
1 地址 4S ”以 PC= 4 跟踪 一 步 ; 
2、 S 继续 跟踪 一 步 
3 地 址 44T ”以 PC= 4 连续 跟踪 。 
方法 二 : 在 方法 一 的 基础 上 , 利用 CTRL 一 Y 用 户 指令 增 
,加 可 设 断 点 的 跟踪 指令 。 为 了 防止 用 户 程序 与 该 程序 重 选 ， 
在 程序 中 都 用 相对 转移 指令 。 这 样 , 只 要 把 3F8 地 址 的 转移 
， 指 令 指 向 调试 程序 的 起 始 地 址 , 就 可 以 把 这 段 程序 移 到 任意 
一 段 自由 RAM 中 。 程 序 为 ， 
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# 3F8EL 
03F8 一 
1000 一 
1002 一 
1004 一 
1006 一 
1008 一 
100A 一 
100C 一 
100E 一 
1010 一 
1011 一 
1013 一 
1015 一 
1017 一 
1019 一 
101B 一 
101D 一 
101F 一 
1021 一 
1023 一 
1025 一 
1027 一 
1029 一 
102B 一 
102D 一 
102F 一 
1031 一 
1033 一 
1035 一 


、1038 一 


103A 一 
103C 一 
103D 一 
103E 一 
1040 一 
1042 一 
1044 一 
1046 一 
1048 一 
104A 一 
104C 一 
104F 一 
1051 一 
1052 一 
1054 一 
1056 一 
1508 一 
105A 一 
105C 一 


10 


SITA 


1 50 
方法 三 
下 面 的 程序 


# 3F8L 
03F8 一 


1000 一 
1002 一 
1004 一 

1006 一 
1008 一 
100A 一 
100C 一 
100D 一 
100F 一 


，1011 一 


1013 一 
1015 一 
1017 一 
1019 一 
101B 一 
101D-- 
101F 一 
1021 一 
1023 一 
1025 一 
1027 一 
1029 一 
102B 一 
102D 一 
102F 一 
1031 一 
1034 一 
1036 一 
1038 一 
1039 一 
103A 一 
103C 一 
103E 一 
1040 一 
1042 一 
1044 一 
1046 一 
1048 一 
104B 一 
104D 一 
104E 一 
1050 一 


01 
02 


10 


10 


10 


RTS 


:没有 语言 板 或 不 改写 监控 程序 ,可 以 使 用 


c39 
F0 
Cc9 
F0 
29 


Cc9 
F0 
B1 
99 
88 
10 
20 
4C 
85 
68 
48 
0A 
0A 
0A 
30 
6C 
28 
20 
68 


03 


4C 


FE 
E8 


11 


00 


00 


03 


$03 
划 $00 
$03 


， 囊 1048 


$FE75 
$F8D0 


中 2C 


$2D 

林 $08 

下 112B,XX 
$3C,XX 


$1069 
($3A,X) 
事 10B7 
$2F 
失 囊 20 
$10D4 
厅 $60 
$10C4 
#$4C 
$10DF 
#$6C 
$10E0 
并 $40 
10C0 
# 囊 1F 
#$14 
##$04 
$1095 
($3A) ,Y 
$003C,Y 


$1093 
$EF3F 
$003C 
$45 


$I0AD 
(03FE) 


$FEF4C 
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10B2 一 
10B4 一 
10B5 一 
10B7 一 
10BA 一 
10BD 一 
10C0 一 
10C1 一 
10C2 一 
10C4 一 
10C5 一 
10C7 一 
10C8 一 
10CA 一 


10CC 一 


10CF 一 
10D1 一 
10D2 一 
10D4 一 
10D5 一 
10D8 一 
10D9 一 
10DA 一 
10DB 一 
10DC 一 
10DD 一 
10DE 一 
10E0 一 
10E2 一 
10E3 一 
10E4 一 
10E6 一 
10E8 一 
10EA 一 
10EC 一 
10EE 一 
10EF 一 
10F1 一 
10F2 一 
10F5 一 
10F7 一 
10F9 一 
10FB 一 
10FD 一 
10FF 一 
1101 一 
104 一 
1107 一 
110A 一 
110C 一 
28 


85 
68 
85 
20 
20 
4C 
18 
68 
85 
68 
85 
68 
85 
A5 
20 
84 
18 
90 
18 
20 
AA 
98 
48 
8A 
48 
AD 
18 
B1 


AA 


88 
B1 
86 
85 
B0 
A5 
48 
A5 
48 
20 
Ag 
85 
A9 
85 
A2 
A9 
20 
BD 
20 
Ag9 
20 


3A 


3B 
82 
F5 
65 


48 
3A 
3B 
2F 


56 
3 了 


4 


54 


02 


3A 


FE8 
10 
下 环 


FE9 


E9 


FED 


FD 


FD 


$3A 


$3B 

生 882 
$10F5 
$EF65 


$48 


再 3A 


$3B 
$2F 
中 F956 
$3B 


$10E8 


$F954 


并 $02 


《$3A) ,Y 


($3A,)Y 
$3B 

$3A 
$L0DF 
$2D 


$2C 


$FD8E 
搜 45 
$40 

#$00 


囊 41 


##$FB 
拉 $$A0 
$DED 


$1039。 叉 


$FDED 
间 $BD 
$FDED 


+10F 一 
111 一 
1114 一 
tl115 一 
1137 一 
1118 一 
1119 一 
141B 一 
111 了 一 
il120 一 
1122 一 
1123 一 
1124 一 
1126 一 
1129 一 
112A 一 
112C 一 
112D 一 
112E 一 
1131 一 
1134 一 
1136 一 


下 


B5 4A LDA $$4A,X 
20 DA FD JSR $EDDA 
E8 INX 

30 。 E& BMI $l10FF 
60 RTS 

18 CLC 

A0 01 LDY ##$01 
BL 3A LDA ($3A),Y 
20 56 F9 JSR $F956 
85 ”3A STA 中 3A 

98 TYA 

38 SEC 

B0 。 A2 BCs $10C8 
20 4A FF JSR 和 F4A 
38 SEC 

BO ”9E BCs $10CA 
EA NOP 

EA NOP 

4C 26 1 JJMpP $li126 
4C 18 1 Jp $l118 


Cl D8 
D9  D0  D3 


面 是 用 BASIC 编写 的 引导 程序 它 可 将 以 


”NEWTRACE 命名 的 上 述 机 器 语言 程序 移 到 任 一 段 内 


存 中 ,其 后 的 使 用 方法 与 方法 二 相同 。 


10 
20 
30 
40 
50 
60 
70 
80 
90 


100 


1310 


120 


130 


140 


150 


160 


170 


HOME :HTAB. 8:VTAB 8 
PRJNT“ What start address? ?” 
A 一 4096 
PRINT:PRINT 
PRINT:PRINT“Now it is 4096($1000 一 下 113872; 
INPUT A$ 
正 A$ 一 >“2THEN A 一 VAL(CA 吊 ) 
PRINT CHR$(4);“BLOAD NEWTRACE,A2?;A 
POKE 1016,76:;POKE 1017,A 一 256 * INTCA/256) ， 
POKE 1018,INTCA/256) 
AL 一 A 十 91 一 256 * INT ((A 十 91) /256): AH 一 
INTCCA 十 91)/256) 
POKE A 十 50,AL:POKE A 十 73,AL 
POKE A 十 51,AH:POKE A 十 74,AH 
POKE A 十 187,，A 十 245 一 256 x INT ((A 十 245) / 
256) :POKE A 十 188,INT((A 十 245)/256) 
POKE A 十 106，A 十 299 一 256 x* INT ((A 十 299) / 
256):POKE A 十 107,INT ((A 十 299)/256) 
POKE A 十 261,A 十 57 一 256 x* INT((CA 十 57) /256) : 
POKE A 十 262,INT ((A 十 57)/258》 
POKE A 十 303，A 十 294 一 256 * INT ((A 十 294) / 
-256) :POKE A 十 304;INT(CCA 十 294)/256) 
POKE A 十 306,-A 十 280 一 256 * INT (CC(A 十 280) / 
256) :POKE A 十 307,INTCCA 十 280)/256) 


让 Apple 讼 曲子  ， 、 


传 增 明 


下 面 有 两 个 程序 , 其 一 是 用 简谱 把 曲子 写 入 计算 


机 , 并 让 计算 机 奏 出 曲子 , 如 果 需 要 , 可 以 把 曲子 写 入 


软盘 ;其 二 是 用 来 演奏 已 在 软盘 中 的 曲子 。 


程序 一 , 10 一 一 40 号 语句 输入 音乐 子 程序 。52 一 


65 号 语句 , 用 来 确定 1 一 C,D,EyF, G,A,B;75 一 84 号 
语句 , 确定 奏 曲 速度 。90 一 150 语句 , 输入 曲子 的 简谱 
符号 。160 一 400 号 语句 , 将 简谱 代号 翻译 成 音乐 数 
据 ., 410 一 500 号 语句 奏 曲 。520 一 790 号 语句 将 曲子 


存 入 磁盘 , 其 中 550 一 620 号 语句 写 曲子 内 容 。 630 一 


790 号 语句 是 目录 管理 程序 。 
用 简谱 写 曲子 示例 。3 表示 高 音 , 表示 低音 。 
将 程序 一 装 入 内 存 , 然 后 键入 


RUN<CR> 

ANY KEY IO BEGIN 

按 任 一 键 ， 显示 : 

天 一 > 
:， ## 提 ## 


键入 :JIL2L3L4L5L6L7L12345671H<< 
CR> 3 
GO ONCY/N) 键 入 “Y”<CR 二 


并 2 0 一 和 
林 间 入 
键入 :2H3H4H5H 6H 7H 1HH 2HH.3HH 4HHE < 
CR> | 
GO ON (Y/N) 键入 “Y”<<CR>>. 
并 3 .ooe。 oo。 -ee one 一 = 
提 扯 打 


键入 :1/2/3/1N2A3N1.2.1L<CR> 
GO ON(CY/N) 键入 “N” 一 CR> 
微机 开始 翻译 ， 约 10 秒 钟 后 ,Apple 要 人 


ae 


12a4567 1234567i231567T23412 


31231.2.1 / 
PUT INTO DISKCY/N) 键 入 cy"<cR> 
WHICH NAME 键入 SONG TEXT 一 CR> 
约 20 秒 钟 ,微机 将 该 数据 存 入 磁盘 ,最 后 显示 : 
(L)ISON. (E)NP 
按 “E" 键 退出 本 程序 , 按 “L” 键 重新 奏 曲 。 
程序 二 :10 一 40 号 语句 送 入 音乐 子 程序 。 
45 一 61 号 语句 取 文 件 目 录 。112 一 145 号 语句 是 
屏幕 设计 。146 一 210 号 语句 从 磁盘 读 入 歌曲 的 数据 。 


人 


220 一 260 号 语句 奏 曲 ， 并 提供 重 听 ， 明史 一 南 子 和 进 

出 本 程序 的 选择 。 

4 HOME: VTAB 10: HTAB 5, PRINT“PRESS ANY KEY 
TO BEGIN. ”;GET B$ 

10 FOR 一 0 TO 20;READ N:POKE I 十 770,N:NEXT 

40 DATA 173,，48，192, 136, 208，5，206，f, 3，240,， 9， 

-202,208y245， 474;0;3,76,2,3;96 、 

58，DIM A$(20);F%《500),D%(500) ,NGH4》 

52 FOR I 一 1 TO 143READ NCD :NEXT . 

56，DATA 192;172,152,144,128,114, 102,96， 86,76，、， 

?7264,57,51 ”1 ， 

57 INPUTeBASic NOTE <C 了 已 ER G.A.B>1= 一 ”5N 归 . 
58 正 种 一 “G” THEN R 一 一 1 1 
59 FF 时 一 “<D” THEN R2 村 人 加 
60 正 冲 =“E” THEN R=3 
61 正 罗 =“F” THEN R 一 4 
62 正 N$ 一 “G”THEN R 一 5 
63 正 冲 =“A" THENR=6 ， 

64 ,IF N$=“B”THEN R=7  : 
65 - FOR I 一 R_TG 丸 十 6:M《I 一 R 十 1) 一 本 
75 PRINT;PRINT:PRINYT“ SPEED” :PRINT:R=1. 02 

78 INPUT“(F)AST. (MIP.(S)LOW . ”N 

80 正 加 一 “F”THEN BR 一 ,8 : 

82 正 冲 一“M” THEN 妇 一 1. 02 

84 IF N 囊 一 “S”THEN R 一 1. 25 

90 I=-0:HOME - 

100 FOR G=1To 20 

110 PRINT“ 并 ”1G3TAB(4)3< ee oooer coeeo 之 ?” 

120 _ PRINT“ 并 ”:， INPUT A$(G) 

130 PRINT“GO ON (Y/N)”":GET 了 到 - 

140 ， 正 亚 一 “N” THEN 160 . 

150 NEXT 

160 FORL=1ToG 

170 PRINT 

.180 PRINT LITAB( 3)34x ee 

190 PRINT“ 失 打 夫 2 

200 隐 一 A$(L) 

210 “FOR K 一 1 TO 36 

220 c 吕 一 MID$(GB$,K,1) 

230 ” 正 c=“1>THEN I=-I 二 1:F%(CD=MG):D%(D 
一 160:GOTO 380 权 

240 正 C 叶 一 “2>THEN'I 一 I 十 1: FMCD: 一 M(2)， p%G 
一 160:GOTO 38f 


29 


250 下 c 融 一 “3”THEN I 一 IT1:F%(D 王 M(3):D%(GD “ 640 PRINT D$;“OPEN2"j4CATALG 提 ? 


一 160:GOTO 380 650 PRINT D$;“READ”;<CATALG 并” 
260 IF c=“42"THEN I=I+1:F%(GD =M():D%(D 660 INPUT 1 
一 160:GOTO 380 665 DIM cGI 二 1) 
270 正 C 吕 =-“55THEN I=-IHI:F%%(D =M(5):D%W(D 670 FORL=1TOI 
“一 160:GOTO 380 680 INPUT cj(L) :NEXT 
280 IF Gy=“6>THEN TIHIF%(D 二 M(6):D%(D 685 PRINT Dj<CLOSE”;<CATALG 入 9 
一 160:GOTO 380 4 690 .cy(I 十 1) 王 陷 ;I=I 二 1 1 
290 ” 正 cc 一 “7”THEN TI 一 I 十 1， F%D- 一 M(7)， 4 入 695 “PRINT Dh;“OPENP;<CATALG 打 2 
一 160:GOTO 380 700 PRINT Dj“WRITE”;“CATALG 提 ?” 
:800 IF c=-“0"THEN I-=-IT1:PF%YD =1:D%(D = 710 PRINTI 
110:GOTO 380 720 :FOR L=1TOT 
310 IF c 一 “HTHEN F%(D 人 GOTO 380 730 ”PRINT G$(L) :NEXT 
320 让 c 一 “LTHEN 上 %(D =F%(D * 2:GOTO:380 740 PRINT BD$;i“CLOSE”3“CATALG 打 ” 
330 IF Ch“. "THEN DW%ID=DM%(D x 1.56:GOTO0 745 PRINT Dh;“LOCK”;<CATALG 打 ?” 
340 ” 正 元 一 “/”THEN D%(D 王 DW%(DV2.3:GOTO 380 750 INPUT“(L) ISON. (E)ND”;B$ 
350 IF C 串 =“ 一 "THEN II 二 1; DCD 一 140， F% (0D 760 IF 阳 =“L” THEN 470 
=F%( 一 D:GoFrO 380 770 IF 昌 =“E”THEN END 
正 C 串 一 “一 ”THEN 410 780 GOTO 750 
PRINT“ 一 ”3; :GOTO 390 ， ! 790 TI=-0:GOTO 690 
PRINT C$; 
NEXT K 10 FoOR I=0 TO 20;READ N 
NEXTL | 20  POKE I 十 770,N 
FOR L=1TOI 30 NEXT 光 
D%(D) =D%(L) *R ea 40 DATA 173, 48,， 192, 136, 208, 5, 206, 1, 3, 240, 9， 
IF D%(D<0THEN DW%(L) 一 0， 202,208,245,174,0,3,76,2,3,96 
IF D%(L)>>255 THEN D%(L) 二 255 45 D$==CHR 下 (4) 
IF F%(LD<0 THEN FEW(LD)=0 47 PRINT CHR$(4)5“OPEN CATALG 林 ? 
IFE%(L)>>255 THEN FW%(L) 一 255 49 PRINT D$;“ERAD”;“CATALG 并 >” 
NEXTL 51 INPUTI 
FORL=1TOoi 53 DIM A$(D 
POKE 768,F%(L) :POKE 769,D%(L) 55 FORL=1TOI 
CALL 770 57 INPUT A$(L) :NEXT 
NEXTEL 2 59 PRINT D$;j“CLOSE”;“CATALG 并 ?” 
PRINT 和 61_ PRINT 
PRINT“PUT INTO DISK (YN) 所 :INPUT 了 80 DIMEF%(450),D%(450) 
IF 陨 =“YwTHEN 550 100 HOME:VTAB 12 
GOTO 750 110 PRINT TAB(7)“ANYKEY TO BBGIN”:PRINT:GET 
INPUT“WHICH NAME”;B A 
ONERR GOTO 790 112 VTAB 16 
560 D 囊 一 CHR$(47) 113 FOR T= 王 1 TOI 
570 ”PRINT D 和 ;“OPEN”;B$ 116 PRINT A$(T)3“ :2 
580 PRINT D$;“WRITE”; 了 有 117 NEXT 
590 _FOREL=1 TOI 二 1! 118” PRINT 
600 PRINT EM%( 人 (iD 上 (GD 119 VTAB 1 
610 : NEXT 四 120 PRINTe“x xw 闪 和 二 关 SONG SINGING 
620，PRINT D$i“CLOSE";8 POGM 关 证 -六 关 关 类 关 关 类 9 
1 630 PRINT D 串 ;“LOCK”; 了 有 121 PRINT * 所 > 挟 > 所 > 挟 > 二 一 一 一 一 一 一 一 一 
635 “PRINT D 和 “UNLOCK”;“CATALG 林 ”= 一 一 一 <>< 二 > 二 之 <<> 挟 


ij22 PRINT“ * >>” TAB (14);“SONG PROGRAN 一 一 : 
一 一 FZM7”i TAB (38); ”> <*“:PRINT”x < “TABE 
(24)5? 一 1985. 12. 8“ ;TAB(38);”<< x“ :PRINT7?” = 

记 <?”: ， 

125 PRINT ”* <<:::: 直 MUSIC 站 
:< KE :PRINT7* 全 人 P> 尖 1 

128 PRINT 7 #<>、 xw :PRINTY x 之 )》 关 也 

129 PRINT x 二 一 xn PRINT xy < < 一 xyv， 

PRINP < :ss:ss<x7 

PRINT” x <>> 挟 福 女 > 所 > 所 > 所 > 所 盖 挟 二 去 

><>><<>><<x :PRINT“ > 关 兴 关 关 关 关 关 关 关 
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二 


5 关 其 关 其 关 罗 家 
135 _VTAB 9:HTAB 12:INPUT“WHICH NAME”;A$ 
140 VTAB 9: HTAB 12: PRINT A$;TAB (38);“ 盖 <” 
VTAB 16 ! 
141 FORT=1TOI 
142 ”PRINT A$(T) ji :2 
143 NEXT 
144 “PRINT 
145 .VTAB 22 
146 I 一 1 
148 D$ 一 CHR$(4) 
150 .PRINT D$;<“OPEN”;A$ 
160 PRINT D 中 ;“READ”;A$ 
170 INPUT F%(D,D%(D 
180 下 FF%(D=0AND D%CD=0THEN 200 
190 I 一 I 十 1:GOTO 170 
200 PRINT Dj“CLOSE”;A 囊 
210 PRINT p 囊 
220 FOR J 一 1 TO I 一 1,POKE 768 F% (J): POKE 769， 
D%(JD:CALL 770:NEXT 
225 VTAB 23 
230 PRINT“(L)ISON (E)ND (N)EXT”:GET A$ 
240 IF A$=-“L” THEN 220 
250 ” 正 A$ 一 “E”THEN END 
255 IF A$ 一 “N”THEN CLEAR:GOTO 10 


一 种 更 为 简单 的 中 文 自动 启动 程序 
湖南 教育 学 院 计算 机 室 杨 银 洲 


在 APPLE 一 上 机 中 采用 C 一 PLUS 汉字 卡 后 , 给 应 
用 程序 中 使 用 汉字 带 来 很 多 的 方便 。 但 多 次 调用 中 文 
自动 启动 程序 (程序 一 ), 则 在 屏幕 上 多 次 出 现 “ 发 明 、 
专利 ”等 字样 ,这 势必 影响 了 应 用 程序 的 运行 速度 并 造 


成 了 屏幕 显示 的 紊乱 。 为 此 ;我 们 采取 如 下 两 种 办 法 ， 
克服 了 原 中 文 自动 启动 程序 的 不 足 之 处 。 

(一 )、 在 应 用 程序 中 ,第 一 次 所 调用 的 中 文 自动 启 
动 程序 , 仍 采用 程序 一 , 荧光 弃 上 相应 地 显示 + 次 “发 
明 、 专 利 ” 等 字样 , 但 此 后 在 中 、 西 文 交替 使 用 中 , 再 次 
调用 中 文 自动 启动 程序 时 , 只 需 将 程序 一 的 20 句 内 容 
改 为 POKE37984,244 就 不 会 产生 “发 明 、 专 利 ” 字 样 。 

(二 )、 应 用 程序 中 任何 时 候 调用 程序 二 , 均 不 会 显 
示 “ 发 明 、 专 利 ” 等 字样 , 而 快速 直入 中 文 状态 , 加 速 程 
序 运行 。 


程序 一 : ， ”程序 二 ， 

10 HIMEM:36864 10 HIMEM:36864 
20 POKE ”37984,0 20  “POKE 37984,244 
30 PR 井 n 30 POKE ”37985,249 
40 PRINT“ ”  .: 40 POKE 37986,232 
50 POKE 43603,3 50 ，POKE 37987,227 
60 POKE 43604,192 十 na 60 POKE 37988,255 
70 POKE 43605,48 70 POKE ”37989 ,0 
80 POKE 43606,192 二 n 80 ,PR## na 

90 ”FOR TI=1To15 90 。 PRINT “ ，” 


100 GET A$ 


110 NEXT II 


APPLE- 的 表格 打印 


杭州 弹 黄 厂 雷 瘟 

大 :多 数 革 果 机 用 户 在 DoS3.3 操作 系统 下 用 
BASIC 编程 时 ,表格 中 的 横 线 总 是 用 减 导 “一 ”表示 , 坚 
线 用 感叹 号 “! ”表示 , 画 的 是 虚线 和 点 划 线 。 用 这 种 
方法 制作 的 表格 不 够 美观 。 为 了 解决 这 个 问题 , 本 文 
介绍 一 个 程序 ,以 满足 打印 表格 的 需要 。 

APPLE 虽然 没有 提供 现成 的 制 表 所 需 的 横 线 、 竖 
线 以 及 各 类 边 角 的 打印 方法 , 但 我 们 可 以 通过 其 它 途 
径 来 实现 ,如 用 绘图 语言 .汇编 语言 。 本 程序 是 利用 了 
打印 机 的 控制 码 , 用 控制 码 中 的 位 像 码 画 出 制 表 所 需 
的 11 个 符号 , 分 别 写 在 11 个 子 程序 中 。 主 程序 要 用 
到 这 些 符号 时 ,只 要 用 GOSUB 语句 调用 即 可 。 

下 面 是 子 程序 : 


10000 PRINT CHR$(27); “K2; CHR 和 CR); 
CHR$(0): 1 | 

10010 ”FOR I= 1 TO R;， PRINT CHR$(16); : 
NEXT 

10020 RETURN 

10100 R(D) 一 0:R(2) 一 0:R(3) 一 0:R(C4)E0:R 


(5) 一 30:R (6) 一 16:R(7) 一 16:R(8) 一 
31 


16:R(9) 一 16:R(I0) 一 16:GOTO 20000 


， 10200 R(GD) 一 16;R(2) 一 16:R(3) 一 16:R(4) 一 


16:R(5) 一 30:R(6) 一 0:R(7) 一 0:R(C8) 一 


0:R(9) 一 0:R(10) 一 0:GOTO 20000 

R(1) 一 0:R(2) 一 0:R(3) 一 0:RC) 一 0:R 
(5) 一 254:R(6) 一 16;,R(7) 一 16:R(8) 一 
16:R(9) 一 16:R(10) 一 16:GOTO 20000 
R(1) 一 16;R(2) 一 16:R(3) 一 16:R(4) 一 
.16: (5) 一 254;R(6) 一 0:R(7) 一 0:R(8) 一 
0:R(9) 一 0:R(10) 一 0:GOTO 20000 

R(1) 一 16;R(2) =16;R(3) 一 16:R(4) 一 
16:R(5) 一 30;R(6)=16:R(7) 一 16:R(8) 
一 16:R(9) 一 16:R(10) 一 16:GOTO 20000 
R(D 一 0;R(2) 一 0:R(3) 一 0:R(4) 一 0:R 
(5) 一 240;R(6) 一 16:R(7) 一 16:R(8) 一 
16:R(9) 王 16:R(10) 一 16:GOTO 20000 


10300 
10400 


10500 


10600 


10700 
| 16:R(5) 一 240:R(6) 一 0:R(7) 一 0:R(8) 
一 0;R(9) 一 0;R(10) 一 0;GoTO 20000 
R(lD) 一 0;R(2) 一 0:R(C3) 一 0， Rd4) 一 0， R 
(5) 一 254:R(6) 一 0;R(7) 志 0; RfB) 一 0:R 
(9) 一 0:RG10) 一 0:GoTo 20000/ 
R(D 一 16:R(2) 一 16; 和 R(4) 一 
16; R(5) 一 240:R(6) 一 16:R(7) 一 16;R 
(8) 一 16: 有 R (9) 一 16:R (10) =16: GOTO 
20000 : 
R(1) 一 16;R(2) 一 16， R(C3) 一 16， R(4) 一 
16:,R (5) ==254:R(6) 一 16:R(7) 一 16:R 
(8) 一 16:R(9) 一 16:RC10) 一 16 

PRINT CHR$(27); “K”， CHR$(10); 
CHR$C0); 
FOR I 一 1 TO 10: PRINT CHR$CR (TD );， 
NEXT 
”20020 RETURN 

这 11 个 子 程 序 的 功能 分 别 为 ; 

SUB 10000 is print 一 
,SUB 10106 is print 

SUB 10200 is print 一 

SUB 10300 is print 上 

SUB 10400 is print 

SUB 10500 is print 

SUB .10600 is print 一 

SUB 10700 is print 

SUB 10800 is print | 

.SUB 10900 is print | 

SUB 11000 isprint 十 


10800 


10900. 


11000 


20000 


20010 
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R(1) 一 16:R(2) 一 16:R(3) 一 16:RC4) 一 


子 程序 1000 是 打印 横 线 “一 ”, 线 的 长 度 可 根据 需 ， 
要 自行 设 定 ， 即 设 定 R 的 值 当 及 =6 时 ,相当 于 一 个 
字符 的 宽度 。 
- 有 了 这 些 子 程序 , 在 制作 表格 时 就 可 以 画 出 封闭 
的 框 线 。 下 面 是 一 个 调用 的 例子 : 
100 “PR # 1，PRINT CHR$(27); “3 CHR$ 
(18);:PRINT 
200 ”GOSUB 10100: R = 18， 
GOSUB 10500， 
10200:PRINT 
300 GOSUB 10800: PRINT“1”"; 。 GOSUB 10800， 
， PRINT“2”; ;GOSUB 10800:PRINT 
400 ”GOSUB 10300，GOSUB 10000: GOSUB 
11000，GoSUB 10000，GOSUB 10400， 
PRINT 
500 GOSUB 10800: PRINT “3”; ; GOSUB 10800; 
PRINT“4”; :GOSUB 10800:PRINT 
600 “GOSUB 10600，GOSUB 10000:，GOSUB 
10900，GOSUB 10000，GOSUB 10700; 
PRINT 
900 ”PR## 0， END 


GOSUB 10000:， 
GOSUB 10000，GOSUB 


程序 的 100 语句 不 可 人 缺 少 , 这 一 句 的 项 能 是 改变 
打印 的 行 店 。 若 没有 这 一 句 , 坚 线 仍 为 虚线 。 
本 程序 用 的 是 FX 一 100 十 打印 机 , 其 它 再 号 的 打 
印 机 打印 的 结果 不 能 令 人 满意 的 话 , 只 要 根据 控制 码 


， 赂 作 一 些 修 改 即 可 。 


用 BASIC 语 


杭州 西湖 区 上 汉中 学 


河内 (HANOD 塔 也 叫 项 塔 , 传说 它 是 印度 教 的 主 
神 痪 天 创造 世界 时 留 下 的 ,在 一 个 黄 铜板 上 插 着 三 根 


细 的 宝石 柱 ,， 禁 天 在 其 中 的 一 根 柱子 上 从 下 到 上 放下 ` 


了 由 大 到 小 的 六 十 四 片 金 片 。 不 论 白 天 标 夜 , 都 有 一 
ee 把 这 些 金 片 在 三 
根 柱 上 移 来 移 去 :一 次 只 能 移 一 片 , 并 且 要 求 不 管 在 哪 


一 根 柱 上 ， ai 当 所 有 六 十 四 片 都 


从 棺 天 创造 世界 时 所 放 的 那 根 柱 上 移 到 另外 一 根 柱 上 
时 , 世界 的 末日 就 到 了 。 

我 们 且 不 去 管 这 个 问题 是 否 与 “世界 末日 ?问题 有 
关 , 只 考虑 上 面 的 移动 金 片 的 过 程 如 何 , 用 BASIC 语 
言 如 何 解决 。 假 设 把 细 柱 编号 为 1 2 和 3, 而 柱 1 上 
有 64 个 圆 盘 , 从 上 向 下 编号 为 1 2、…、64 个 , 要 移 到 


柱 2 上 去 (如 图 , 为 简单 起 见 , 这 里 只 画 了 九 片 ), 我 们 
把 这 个 任务 表示 为 ; 


Imovetower(64,1,2) 


图 1 Hanoi 塔 


如 果 将 柱 1 上 的 顶 上 63 个 圆 盘 移 到 柱 3 上 , 则 需 
. 将 最 后 一 个 圆 盘 从 柱 1 移 到 柱 2， 再 将 63 个 圆 盘 从 柱 
3 移 到 柱 2 上 , 即 得 到 一 个 等 价 过 程 
movetowef(63,1,3); 
把 第 64 片 ( 即 最 后 一 片 ) 从 柱 革 移 到 柱 2 
Imovetower(63,3,2) 
这 三 步 前 后 两 步 与 原来 问题 相似 , 只 是 规模 小 了 , 而 中 
闻 一 步 是 一 个 直接 移动 的 过 程 ,类 似 的 要 完成 
Imovetower(nyaybyc) 
， ”其 表示 “把 ”个 图 盘 从 细 柱 a 移 到 细 柱 b, 使 用 细 
柱 。 作为 暂时 用 的 塔 。” 于 是 可 分 三 步 执行 : 
Inovetower(n 一 1,aycyb); 
把 第 n 个 圆 盘 从 a 移 到 b; 


”Imovetower(n 一 1cyby)a); 


言 解 疾 HANGI 塔 问题 


林 者 


注意 当 n 一 1 时 是 不 用 这 样 化 的 , 可 直接 从 a 移 到 b， 
而 移动 的 盘 号 为 1。 

可 见 这 是 个 递归 过 程 , 如 果 用 PASCAL,C 和 PLV1 
语言 , 那 是 很 简单 的 。 很 遗 铀 ,BASIC 语言 不 支持 递归 
调用 过 程 , 要 用 BASIC 语言 解决 这 个 问题 可 用 数组 作 
为 堆栈 来 存放 第 二 步 和 第 三 步 要 帘 成 的 内 容 , 而 且 先 
解决 第 一 步 内 容 。 但 如 果 第 一 步 中 只 有 一 个 圆 盘 , 就 
可 直接 解决 ,和 否则 第 一 步 还 得 用 类 似 方 法 化 下 去 。 , 

这 里 用 数组 NUM 记录 移动 的 盘 片 数目 ,而 用 
NOUMCD = 一 工 表示 可 直接 移动 该 盘 , 要 移动 的 盘 号 ny 
用 数组 SC 记录 各 步 的 起 始 柱 号 ,用 数组 DT 记录 各 步 
的 目标 柱 号 , 暂 存 柱 号 可 以 不 记录 ,这 样 当 n>1 时 ， 

movetowef(ny,ayb,c) 

可 表示 为 ， 

NUM(TP) =-n,SCCTP) 一 a,DT(CTP) 一 b 
而 GOmovetowerCn 一 Lyayc;b) 

加 把 第 n 片 从 a 移 到 b 
图 movetower(n 一 lyc,b,a) 

可 记录 为 ， 

CNUM(TP 十 2) 一 n 一 1， 

SC(CTP 十 2) 一 ay DTITP 十 2) 一 c 

G@NUMCTP 十 ) 一 一 1,SCCTP 十 1) 一 a，. 

DP(TP 二 1D) =b 

NUM(TP) =n 一 1,SC(TP) 一 C,DTCTP) 一 b 


jib 十 ec 一 6, 所 以 一 6 一 a 一 b, 只 


4 要 记 住 as 和 b 即 可 。 
当 上 述 n 一 1 时 , 就 可 直接 打印 移动 盘 号 , 移动 过 


” 程 , 并 使 TP<TP 一 1, 若 NUM (TP) 一 一 1 表示 这 一 步 


也 可 直接 移动 , 而 移动 的 是 第 NUM(CTP 一 1) 叶 圆 盘 , 并 
使 TP<TP 一 T， 显然 TP 是 指向 当前 所 要 完成 的 任务 ， 
即 堆栈 的 顶 

那么 作为 堆栈 的 数组 NUM， sc， DT 要 求 多 大 呢 ? 
其 实 移动 m 个 盘 可 以 化 为 等 价 的 三 步 过 程 ， 并 解决 移 
动 n 一 1 个 盘 的 移动 问题 , 所 以 数组 最 大 要 求 为 2* (N 
一 ID) 十 1 一 2* N 一 1( 其 中 N 为 总 盘 数 )。 

程序 中 N 表示 总 盘 数 , S 表示 刚 开 始 的 源 柱 号 , D 
表示 最 终 的 目标 柱 号 , 这 些 量 需要 键盘 输入 。PN 表示 
要 移动 的 盘 号 ，S, 为 当前 源 柱 号 ， 为 当前 的 目标 柱 
号 ,在 显示 /打印 中 输出 。 

此 程序 在 Apple-H 的 Applesoft BASIC 下 实现 ,下 面 
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竹 


二 


和 和 


是 程序 清单 及 移动 3 个 盘 从 柱 1 到 柱 2 的 结果 。 1 2 一 3 
程序 ; 3 1->2 
10 。 INPUT “N=”;N:TNPUT“S 一 ”;S:INPUT“D=-”; 1 3 一 1 
D:LEG=1 十 2 * (CN 一 1) 2 3 一 2 
15 ， 正 GN=0)OR (S =D) THEN PRINT“MOVING- 1 2 
NUMBER",COUNT.END NUMBER OF MOVING THE DISCS:7 
20 DIM NUMCLEG) ,SC(LEG) .DTCLEG) 如 果 要 在 屏幕 上 形象 地 显示 移动 盘 片 的 过 程 , 也 可 利 
70  TP'=1:NUM(ID) =N:Sc (1) 二 S:D (1) 一 D， 用 Apple-[[ 的 BASIC 作 图 功能 加 以 改进 , 即 可 得 到 一 
COUNT 一 0:GOSUB 100 个 比较 好 的 演示 程序 。 
80 PRINT “NUMBER OF MUVING THE DISCS:"; 在 20 句 和 70 多 之 间 插 入 ， 。 
COUNT .30 DIM A(3) :DEF FN PP (X) 一 (X 一 1D) x 1 3 十 7:A (S) 一 N 
90 END 40 GR :COLOR 皇 15:HLIN 0,39 AT 30 , VLIN 29,10 AT7: 
100 ” 正 TP <1THEN RETURN VLIN 29 ,10 AT 20， VLIN 29,10 AT 33 
110 ”下 NUMCTP) 1 THEN 160 50 COLOR =1:L=N 十 1:CEN=FN PP(S) 
120 “ 正 NUM (TP) =1THEN PN =1:GOTO 1000 60 FOR I 一 29 TO 30 一 2 xN STEP 一 2;L 一 L 一 1:，FOR 了 
130 ”PN=NUMCTP 一 1) 十 1:GOTO 1000 一 0 T0 1，HLIN CEN 一 1， CEN 一 L,， AT TI 一 J:; HLIN CEN 
160 NUMKTP 十 2) 王 NUM (CTP) 一 1: SC (TP 十 2) 一 十 1,CEN 十 L_ AT 1 一 JI;NEXT:NEXT 
SC (TP) :DT (TP 十 2)=-6 一 DTCTP) 一 SCCTP) 65 _ RETURN 
170 NUM CTP 十 1) 一 一 1:SC (CTP 十 1) 一 SCCTP); 在 1010 句 和 1020 句 之 间 插 入 ， 
DTCTP 十 1) = 一 PTCP) 1012 L 一 PN:COLOR 一 0:CEN=-FN PP(S) ;YP 一 30 一 2x A( 
180 ”NUM(TP) =NUMKTP 十 2):SC (TP) =DTCTP 8 ):AC& DJ) 一 A(CS ) 一 1:GOSUB 1030 
十 2):TP 一 TP 十 2: GOTO 100 1014 COLOR=1: CEN -FEN PP (Di)sYP 一 28 一 2xA( 
1000 Si =SC (TP): D1 一 DT (TP): TP =TP 一 1， Di );ACD ) 一 ACD ) 十 1:GOSUB 1030 
COUNT 一 COUNT 才 了 再 补 上 ， 
1010 PRINT,PN,S1”“ 一 ";D1 辽 1030 FOR I=-0 T0 1:, HLIN CEN 一 1，CEN 一 L AT YP 十 1， 
1020 GOTO 100 站 HLIN CEN 二 1,CENN -十 L AT YP 十 INEXT :RETURN 
运行 结果 | 如 果 演示 速度 太 快 , 可 置 一 个 延 时 过 程 , 并 加 上 声音 , 但 
N 一 3 由 于 显示 器 屏幕 低 分 辩 率 作 图 下 范围 的 限制 , 本 程序 设置 为 
二 最 多 演示 六 个 盘 的 移动 过 程 。 
= 总 的 移 盘 次 数 为 2x 一 1， 可 用 级 数 的 知识 推导 出 来 , 这 
1 里 不 再 详细 推导 。 
2 : . 1-3 
(上 接 37 页 ) 
下 11 让 囊 区 -ua 
直 平 已 成 = 届 到 中心 自 号 宙 二 和 有 
上 
， 


素 度 忆 看 其 丑角 站 三 人， 学 总 
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“辅助 教学 。 


] 


《 抛 体 运 一 动 ) 畏 助教 学 程序 


天 津 一 〇 九 中 “ 马 基 


本 程序 应 用 STC 软 汉字 系统 , 用 扩展 BASIC 语言 
编制 。 在 APPLE 一 IT 机 上 Dos3.3 操作 系统 支持 下 运 
行 。 程 序 包 括 《 平 抛 })《 斜 抛 》 及 相应 的 自 查 练习 四 个 


功能 模块 。 程 序 运行 时 采用 两 级 菜单 选择 方式 。 因 为 


. 斜 抛 运动 规律 是 曲线 运动 知识 的 综合 , 所 以 本 文 以 下 
仅 以 《 斜 抛 运动 》 程序 说 明 程序 的 功能 、 使 用 及 设计 思 
想 。 | 

由 主 控 程 序 选择 ( 斜 抛 运动 } 后 ,该 程序 调 入 内 存 。 
屏幕 显示 二 级 菜单 , 选择 1 后 , 展示 斜 抛 条 件 , 在 汉字 
提示 操作 下 ,逐一 地 检 五 个 问题 角度 供 使 用 者 讲解 分 
析 斜 抛 规 律 。 

- 猩 序 设计 原理 和 特点 ， 

1. 为 了 精确 地 从 图 象 和 数据 两 方面 研究 物体 运 
动 时 间 和 位 置 的 定量 关系 , 程序 在 高 分 辩 率 作 图 时 摸 
拟 屏 闪 摄影 的 方式 。 以 屏幕 平面 建立 XOY 平面 座 标 。 
根据 飞行 时 间 

人 一 2 VSin8 

9 
等 分 为 T/10 为 一 个 时 间 单位 。 物体 理想 化 为 质点 ， 
计算 机 根据 输入 的 初速 度 Fo ,抛射 角 9, 计算 物体 在 
T/10,T/5,3T/10…T 十 个 时 刻 的 有 关 力 学 量 。 这 样 屏 
幕 绘图 效果 既 能 表现 质点 运动 的 过 程 , 又 能 反映 了 所 


人 好 象 肯 间 完 成 的 屏 闪 


照片 处 理 结 

2. 和 所 忆 所 大 后 过 站 不 本 汪 基 每 
个 问题 屏幕 上 方 显示 标题 ,使 用 者 输入 F, ,8 的 数值 ， 
屏幕 就 显示 此 问题 有 关 的 物理 公式 和 结果 以 及 运动 图 
象 。 程 序 以 高 分 辩 作 轿 的 一 个 点 为 长 度 米 的 单位 , 受 
屏幕 绘图 范围 眼 制 ,物体 运动 显示 的 范围 在 水 平 
260m, 竖 直 150m 内 , 超出 此 范围 的 质点 屏幕 不 能 显 
示 。 这 样 ，P 取 值 为 50 (m/s) 时 ， 无 论 8 取 什 么 值 (0 
图 像 最 佳 。 

只 要 不 按 “0” 键 , 每 个 标题 下 程序 都 可 重复 执 

行 。 程序 等 待 输入 新 的 Fo 。6 这 
样 可 以 满足 不 同 记 ,8 时 运动 情况 的 分 析 比 较 , 重复 教 
学 的 需要 。 按 入 “0” 键 ,进入 下 一 个 问题 研究 。 “. 

4. 在 即时 速度 和 任 一 时 刻 位 置 两 问题 中 , 输入 
Fo，,8 值 后 , 物体 在 十 个 时 刻 的 有 关 力 学 量 及 矢量 图 逐 
点 显示 。 只 要 按 一 次 除 “0? 以 外 的 键 , 就 绘 出 一 时 刻 的 
有 关 图 象 , 并 标明 对 应 的 时 间 。 按 十 次 , 各 点 逐次 完 


.1195 绘 矢量 产程 序 。 


二 
变化 关系 , 同时 动态 表现 矢量 绘图 过 程 。 对 络 教 学 难 
点 突破 具有 很 大 的 帮助 。 


程序 说 明 ， 
10 一 280 语句 为 主 程序 。 其 结构 安排 为 ,每 一 个 
研究 的 问题 设 定 “ 旗 标 "，FI$ 一 “1”，…w FL 和 一 “5"。 


以 便 在 调用 公用 子 程 序 时 作 相 应 的 处 理 。 程 序 中 所 用 
汉字 先 由 25 一 30 语句 调 入 内 存 。 在 程序 中 以 汉字 
DATA 语句 (清单 中 省 略 ) 读 入 汉字 字符 串 组 P 囊 (45) 
中 。 子 程序 包括 : 500 一 550 打印 屏幕 位 置 子 程序 ， 
1000 一 1065. 建 立 坐 标 , 输入 Fe ,8 数据 程序 。1100 一 
1200 一 1215 矢量 绘图 中 确定 某 
1300 一 1380 绘 物体 运动 轨迹 
绘 质点 位 置 到 X,Y 轴 垂 线 子 程序 。 


时 刻 位 置 嵌 套子 程序 。 
程序 ,1400 一 1445 绘 


10 REM 只 其 其 关 其 其 半 

15 REM x* PROGRAML-2 * 

20 REM x 关头 闪光 类 关 

25 A$ 一 “ZK_DA>， PRINT CHR$ (4)5“BLOAD”;A$ 

30 HIMEM: PEEK (43635) * 255 十 PEEK (43634) 

35 PRINT CHR 下 (26) 

40 DIM 陪 (45) :FOR I 一 1 TO 45; ,READ 史 0， NEXT 

45 CX 一 10:CT 一 140:G 一 9.8 

55 也 =10:V 一 1:PE 一 “ * ”十 P$(1) 填 P$(27 十 < * :GOSUB 
510 

60 H 一 10:,V 一 5: PE$ 一 
GOSUB 510 

65 五 一 10:V 一 6:PE$ 一 “2. ”十 P$(39) :GOSUB 510 

70 了 =10:V 一 7:PE 一 “3. ”十 冲 (40) : GOSUB 510，， 

75 H=10:V=9:PE$ 一 P$(32):GOSUB 510 

80 GET W$:PRINT CHR$ (26) ， 

85 IF w$ 一 “3”THEN PRINT CHR$ (4) ; “RUN MAENU” 

90 正 W$ 一 “22"THEN PRINT CHR$ (4) ;RUN PROGAME-4” 

95 责 一 1:V 一 2:PE 一 P(1) 十 P(2) 十 P$(6) :GOSUB 530 

100 H 一 5:V 一 4;PE 一 P$(7) 十 P(27) 十 <V0 3K” 十 区 (29)， 

GOSUB 510 


1 吉 全 人 十 囊 (38):: 


102 互 王 4:V 一 5: PE$ 一 P$(8) 十 P$(9) 十 隐 (10)》 十 “Q”， 
” GoSUB 510 

105 H 一 10:V 一 10:Pi 一 如 (31) :GOSUB 510:， GET Ws 

110 HI 一 5:V1 一 1:PI=“* -1 十 P$(27) 十 “-V0"”，GOSUB 
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1000 

H1=1;, V1 二 6, P1$=“yoy”: H2 一 9: V2 一 9, P2$ 一 “ 
FO-y” 四 | 
H3 一 7:Vv3 一 6:P 绅 一 “V0”:GOSUB 1220: GOSUB 00 
H=-5:Y 一 3:PE$= 卫 (29) +“F0- <V0x COS (Q) 一 
FP$--“1”:GOSUB 510 

PRINT INT (100 x V0 x COS (Q1) 十 .5)/100 

HE 一 5 水 村 4 四 一 时 (30) 十 roy =v0*SIN CO) ~ 


SR 二 Cv0 条 Roy * 65 十 ， 5)/100:FP 一 


GET W$ 

正 w$<<>“0”THEN 110 

FI 和 $=“2?” 

HL 一 5:V113 PT 一 “* -27 十 锅 (28) 十 “- Je 
1000, GOSUB 1300 


N=0: GOSUB 1200: GOTO 160“ ， 


150 
155 N=N 十 1; GOSUB 1200 
160. H 一 3,V 一 32: PE=“7。 一 ”十 “V0 x* COS (Q) = 
PP 叫 一 “1?， .GOSUB 510 
162 _ PRINT INT (100 * V0 x COS nb 十 , 57/100; 
“NT 
165. H=-3,V 二 3， PE 串 =“ pr 一 ”十 “V0x SIN(CQ) -gxt 
=” GOSUB 510 
167 PRINT IN8 ((V0 x SIN (Q1) 一 G x N x 和 
10) * 65 十 .5)/100 
170 HH=3:，YV=4: PE 一 “Vt 一 ” 十 “SQR 
TeA2 十 FA2 7) 一 >; GOSUB 510 
172 PRINT INT (100 * SQR ((V0 * COS (Ql)) 人 
2 十 (CV0 * SIN (Q1) 一 G * N x* E/10) A 2 十 
.5)/100:FP$=-“o” 
175 GET W2$: IF W2$ <<>>“0”THEN 155 
180 CX=10:CY 王 140 
185 HL1=5:V1=1:PT$ 一 “ 人 
PR$(23) 十 PR842) : GOSUB 1000 
190 GET W2:, IF W2$ 一 >>“0”THEN 155 
180 CX=10:CY=-140 
185 HI 一 5:V1=1;PT=“ * -3 十 P$(41) 十 P 囊 (22) 十 
， 陷 (23) 十 囊 (42): GOSUB 1000 
190 ES 一 “3”， GOSUB 1300 
195 HI 一 4， V1=1: PT 囊 一 “ xx -4 十 P$(43) 十 一 H. ”十 
BC44 十 “-S， ?十 陷 (267 十 “一 T? 
.197 GOSUB 100 
200 FI 下 一 “4”， GOSUB 1300 
205 YY 一 roA2xSIN (6)A2/2/G;X 一 OA2 x* SIN 
(2 *.Q1) /G 
210 FOR I 一 Y TO .0 STEP 一 4;:SX 一 X/2 * SC 十 CX， 


SY=CY 一 LI TFT=9 x* Y/10 THEN HPLOT TO 
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;GOSUB 


215 


.220， 


225 


227 


230. 


232 


235 


237 


240 


450 
250 


， “3K2” 十 “V0,” 十 “Q. ?十 “8 /2 


252 
255 
260 


262 


265 
270 
275 
280 
500 
510 
520 
530 
540 
550 
1000 
1005 
1010 


1015 


1020 
1025 
1030 
1035 


1040 


SX,SY 
HPLOT SX,SY: NEXTT 


_H==20:V 一 7:PE$ 一 “H”， 下 530:H=18:V 一 


9 ,PE 一 “S”:GOSUB 530 

H 一 5: V 一 2: PE 吊 一 “H 一 CR (2 
x g)/g 一 ”;FPSKG 一 x* 2| 一 “1”: GOSUB 520 | 
PRIMT INT (100 * (yo0A2 x SIN (91)A2 /2/ 
G) 十 .5) / 100, GOSUB 530 

H 一 5:v=3:PE$ 一 “S=v0 2 x* SIN (2 * Q) /g 一 ”， 


GOSUB 520 


PRINT INT (100x* (70A2xSIN (Q1* 2) /G) 十 
.5)/100, GOSUB 530 

H 一 5;,V 一 4; PE 一 “一 2x*V0x*SIN(Q) /g 一 ”， 

GOSUB 520 

PRINT INT ee 《V0 * 2xSIN (Ql) /G 十 ， / 
100:FP$ 一 

GET W4$，IF 0 THEN 195 

PRINT CHR$(26) :FL$ 一 : 

HL 一 4:V1 一 1:PT$ 一 “* 一 5? 十 P$(44) 十 “一 S? 十 
GOSUB 1000 

Fp$ 一 “<1” 

H 一 5:V= 一 3: PE$ 一 “S 一 了 TOA2x*SIN (2xQ) /g 
一 ”; GOSUB 520 

PRINT INT 〈100x* (了 70A2xSIN(QL*2)/G) 二 
.5J/100: GOSUB 530 

FEV 王 FEV 十 1 

GET W5$: IF W5$ 一 >>“0”THEN 250 

PRINT CHR$ (26) :FL 一 “0”:FV 一 0:GOTO 55 

END 

及 EM ? HTAB VTAB,PES 

HTAB H . VTAB V ;PRINT CHR SS (9) 

IF FP $ 一 “12THEN 540 

HTAB H: VTAB V :PRINT PE $ :GOTO 550 

HTAB H:VTAB V: PRINT PE$， 

RETURN 

REM INPUT V0 ,Q 

IF FV < >0THEN 1045 

IF FL $ “5” THEN H =Hl:,V=V1:PE$=PTS$: 
GOSUB 530:GOTO 1020 
PRINT CHR $ (26); H=Hl,v 一 vi;PES$ =PT$， 
GOSUB 530 

HI 一 12:V1 一 9;:H2 一 15:V2 一 1:H3 一 35:V3 一 9 

表 一 1: V 一 1:PE$ 一“Y”:GOSUB 530 

H=1:V 一 1:PE$ 一 “Y” :GOSUB 530 
H=35:V 一 9:PES 一 “X” :GOSUB 530 

HPLOT CX, 10 TO CX, CY TO 270 ,CY :HPLOE CX 二 


1042 
1045 


1047 
1050 
1055 
1060 
1065 
1100 
1105 


1110 
1115 
1120 


3 ,15 TO CX ,10 TO CX 十 3,15 

HPLOT 265,CY 一 3 TO 270 ,CY TO 265,CY 十 3 
HTAB 1: VTAB 10:， PRINT P(33); P$(27); “V02"; 
PP(3)5“Q” 

INPUT SV，SD 

IF FL $ 一 “5”THEN 1060 

FL$=-“2”:GOSUB 1300:GOTO 1065 
FL$=“5”:GOSUB 1300 

RETURN 

REM SHIIAN 


正 FT$=-“12?THEN X 一 V0 x* COS (Qi):Y 一 V0 * iSIN . 


《Q1) 一 9. 8 * (N *E/I10):GOTO 1115 

X 一 V0 * COS (Q1):Y 一 V0 * SIN (Ql) 

SX 一 X * SC 十 CX:SY 一 CY 一 Y 

了 ESX<0ORSX>>2790ORSY<0OR SY> 191 


THEN 1195 


1125 
1130 


1135 
1140 


IF 下 FL$ 一 “3”THEN 1150 
HPLOT CX , CY TO SX , SY : HPLOT 
SY;HPLOT CX,CY TO SX,CY 

IF XT > V60 * COS (Q1) *E /2 THEN 1145 

HPLOT CX 一 2,SY 十 2 TO CX ,SY TO CX 十 2,SY 十 2 


,CY TO CX， 


1142 HPLOT SX 一 2，CY 一 2 TO SX ，CY TO SX 一 2，CY 十 


TI145 


1150 
1155 
1160 
165 
1170 
1175 


1180 


1185 
1190 
1195 

1200 
1205 
1207 


1210 
1215 
1220 
1225 


2:GOTO 1150 


HPLOT CX 一 2, SY 一 2 TO CX ,SY TO CX 十 2,SY 一 
2: HPLOT SX 一 2,，CY 一 2 TO SX , CY TO SX 一 2,CY 
十 2 

FOR I 一 X TO 0 STEP 一 X/10 

SX 一 I x SC 十 CX:SY 一 CY 一 Y 

IF I=-9 x* X/10 THEN HPLOT TO SX ,SY 

HPLOT SX,SY 

NEXT 

FOR I 一 Y TO 0 STEP 一 Y/10 : SX 一 X * SC 十 CX : 
SY 一 CY 一 I 

FEI=9 * Y /10 THEN HPLOT TO SX ，SY : GOTO 
1190 

HPLOT SX ,SY 

NEXT 

RETURN 

REM PLOTVt,Vyt,Vxt 
FT$=-“1”:XT 一 GN x* E /10) * V0 x COS (Ql) 
YT=(NxE/I0)x* V0Ox*SIN (QI -Gy/2 *x (CN 
x* E/10) x* (CN * 王 /10) 

CX 一 XT- 二 10 : CY 一 140 一 YT:GOSUB 1100 

RETURN “ 

REM ? V,VX,VY 

开 王 HL : V 一 V1 : PE 一 P1$:GOSUB 530 


1230 
1235 
1240 
1300 
1305 
1310 
1315 
G . 
1320 


1325 
1330 
1335 


1340 
1345 


1350 
1355 
1360 
1365 
1370 
1375 
1380 
1400 
1405 
1410 


1412 
1415 
1420 
1422 
1425 
1430 
1432 


1435 


1437 


H=H2 : V 一 V2 : PE 名 一 P2$:GOSUB 530 

H 王 H3 :， V 一 V3 : PE 机 一 P3$,GOSUB 530 

RETURN 

REM PLOT (DANDO) 

SC 一 1,.05 : FL 一 0 

V0=-SV : Q=SD 

Ql=Q * 3.14159 /180 :E=2 * V0 * SIN (QI / 


IF FL $=“5”AND COS (Q1) > 一 ,866 OR Q 一 45 THEN 
TE=E 十 E/10 : GOTO 1330 

TE 一 己 

FOR T 一 0 TO TE STEP E/10 

X=V0 x* T x* COS (Ql) :Y=V0 x*Tx* SIN (Ql) 
一 G /2 xTxT 

SX 一 X x* SC 十 CX : SY 一 CY 一 了 

IE SX <0ORSX>279 OR SY<0 OR SY> 191 
THEN 1375 

IF FL =1 THEN 1360 

HPLOT SX ,SY:FL 一 1 

IF FL $=-“3?THEN GOSUB 1400 

IF FL $ 一 “5”THEN HPLOT TO SX,SY:GOTO 1375 
HPLTO SX ,SY 
NEXT 人 
RETURN 

REM X,Y 
HPLOT SX,SY 
FOR I 一 X TO 0 STEP 一 2 : SX=I * SG 十 CX : SY 一 CY 
一 Y 

IF I=-9 x* X /10 THEN HPLOT TO SX ,SY 

HPLOT SX,SY:NEXTI 

FOR I 一 Y TO 0 STEP 一 4 : SX 一 X x SC 十 CX : SY 一 
CY 一 

IF I=-9 x* Y /10THEN HPLOT TO SX ,SY 

HPLOT SX,SY:NEXT II 

百 一 4 : V 一 2 : PE 叫 一 “X 一 V0 * COS (Q) x*t 一 ”: FP$ 一 
“1”:GOSUB 510 

PRINT INT (100 * V0 * COS (Ql) * T 十 .5) / 
100j“xT 一 ";INT (100 x* T 十 .5) /100j“ 关 

HH 一 4 :V 一 3 : PE 一 “Y 一 V0x SIN (Q) * 工 一 .5x 名 关 t 
A2 一 ”:GOSGUB 510 

PRINT INT (100 x* (V0 x SIN (Q1) * T 一 .5 x YA 


2 x .G) 十 .5) /100 : FP$ 一 “0” 


1440 
1445 


GET W$:IF W$ 一 “0>THEN 195 
RETURN 


由 于 篇 幅 所 跟 , 仅 给 出 三 幅 运 动 图 象 的 拷贝 


(下 转 34 页 ) 
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用 字符 放大 打印 高 分 辨 率 图 象 的 通用 程序 


山东 潍坊 一 中 刘 善 平 


通常 用 计算 机 绘制 一 由 有趣 的 图 像 挂 在 房间 里 ， 
的 确 是 别有一番 情趣 。 有 时 ,我 们 也 需要 对 某 些 高 分 
辩 率 图 形 进行 局 部 的 或 全 部 的 放大 打印 。 但 是 ， 
APPLE--T 只 能 利用 硬 拷 贝 的 方法 接 印 图 像 , 它 有 -- 
些 局 限 性 。 为 此 ， 笔者 编 币 了 用 字符 放大 打印 分 
率 图 像 的 通用 程序 

本 程序 的 原理 就 是 先 从 相应 的 内 存单 元 取得 图 像 
上 某 个 点 的 颜色 ,而 后 根据 其 颜色 的 不 同 , 分 别 用 相应 
的 字符 代 蔡 加 以 打印 。 从 而 得 到 放大 了 的 图 像 。 但 是 
如 何 取得 某 个 点 的 颜色 呢 ? 

在 APPLE 一 [的 低 分 辩 率 的 绘图 中 , 有 一 个 SCRN 
函数 ,可 以 取得 低 分 辩 率 图 像 的 某 个 点 的 颜色 的 代码 。 
但 是 ,要 取得 高 分 辨 率 图 像 的 某 个 点 的 颜色 , 则 没有 具 
体 的 函数 。 但 是 , 高 分 辩 率 图 像 上 的 一 个 点 对 应 于 内 
存单 元 中 的 一 位 ,一 个 内 存单 元 中 一 个 字 节 是 8 位 ,这 
8 位 中 有 7 位 显示 在 7 个 点 上 , 最 高 位 用 于 配合 选择 
这 一 单 元 中 每 一 个 点 的 颜色 。 但 对 于 黑白 电视 机 最 高 
位 则 显示 不 出 效果 。 因 为 我 们 的 打印 机 不 能 打印 彩色 
字符 ,而 只 能 象 黑 白 电视 机 那样 输出 黑白 字符 ,至 于 显 
示 效 果 则 是 由 显示 出 的 字符 的 朴 密 而 决定 。 所 以 我 们 
只 要 判断 相应 内 存单 元 的 前 7 位 上 , 相应 一 位 的 值 是 
0 还 是 1, 而 后 利用 相应 的 字符 用 打印 机 打印 出 来 就 可 
以 了 。 

本 程序 打印 时 可 以 任意 剪辑 ， 正 相 或 反 相 打印 ， 纵 
向 或 横向 打印 。 

程序 的 结构 是 : 

1 一 10 句 是 由 用 户 选择 相应 的 图 像 及 打印 方式 。 

20 一 30 句 是 显示 整个 图 像 。 

40 一 230 何 是 程序 主体 。 其 中 it10 一 160 句 将 取 
得 的 十 六 进 制 数 转 化 为 8 位 二 进 制 数码 , 60 一 90 句 控 
制 取 点 的 顺序 ,170 一 240 句 进行 打印 。 

500 一 530 句 是 连接 打印 机 并 选择 字符 的 大 小 及 
行距 的 子 程序 。 

在 程序 中 变量 N 控制 高 分 辩 率 图 像 的 页 码 , M 和 
P 控制 打印 方式 。 当 M=-0 时 为 正 向 打印 ; 当 M=1 时 
反 相 打印 ; 当 P=-1 时 横向 打印 ; 当 P=2 时 纵向 打印 。 
由 于 是 字符 打印 ,所 以 用 户 可 以 修改 500 一 530 句 的 子 
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程序 ,从 而 随意 控制 放大 或 压缩 的 程序 。 
注意 : 由 于 打印 机 的 型 号 不 同 。 每 行 输出 字符 的 
个 数 不 同 , 在 剪辑 时 以 每 行 点 的 个 数 不 超 过 打印 机 每 
0 
TEXT:HOME 
2 _ INPUT“LOAD PIC ON DISK? (Y/N) :”LL$ :IF II 串 王 
“N2THEN 5， 
3 INPUT“PIC NAME:”;NAMIE 
4 PRINT:PRINT CHR$(4);“BLOAD” 十 NAME 
5 LOMEM:;24576 
6 TEXT,HOME 
7 (加 GE:"N;IFN (LANDN()2 THEN 7 
8 
9 


INPUTe“X1;X2,Y1,Y2:2;X1,X2,Y1,Y2 
INPUT“INVERSE(0/1):”;M:IF M( )1 AND M (0 
THEN 9 

10 INPUT“PRINT (1/2):”;P:;IFP()?1ANDP()2 
THEN 10 


20 IFN=1THEN HGR2:POKE 一 16300,0:GOTO 40 

30 HGR:POKE 一 16299,0 

40 XI 一 INTCX1/7):X2==INT(CX2/17) :DIM A 否 (192) 

45 GOSUB 500 

50 正 P= 2 THEN FOR D=-X1 TO X2:Y 一 一 1: GOTO 
60 

55 PRINT“1 2” 

60 FOR A 一 8192 x* N 十 (P 一 1) * D TO 8192 * N 十 (P 
一 1) * D 十 80 STEP 40 

70 FOR B 一 A TO A 十 896 STEP 128 

80 FOR C=-B TO B 十 7168 STEP 1024 

85 IF P-=2 THEN X 一 PEEK(C) 

90 IF P 一 1 THEN FOR D=X1 十 CTO X2 十 C:X 一 PEEK 
(D) 

100 A 囊 一 “” 

110 FOR E=-7 TO 1 STEP 一 1 

120 FE 一 X 一 INT CX/2) * 2 

130 下 ABS (FE 一 MD) 王 0 THEN A 惠 一 A 韦 十 “ 
150 

140  A 争 一 A 囊 十 “MY 

150 X=INTCX7/2) 

160 NEXTE (下 转 23 页 ) 


: GOTO 


“ 中 学 生 园 地 . 


用 微机 给 知识 


竞赛 计时 计 分 


河北 部 部 一 中 人 


面临 着 世界 上 新 技术 的 挑战 , 我 们 广大 青少年 为 
四 化 而 奋发 学 习 的 热潮 方兴未艾 。 各 地 举办 的 各 种 类 
型 的 知识 竞赛 应 运 而 生 。 这 些 竞赛 都 需要 计时 、 计 分 。 
间 的 控制 和 分 数 的 显示 必然 需要 一 定 的 设备 , 制 做 这 
些 设备 就 要 花费 一 定 的 人 力 和 财力 。 鉴 于 目前 微机 已 
较 普及 ,应 用 微机 来 承担 这 项 工作 既 经 济 又 方便 ,应 该 
说 是 一 种 较 理 想 的 方法 。 为 此 , 笔者 编制 了 一 个 可 同 
完成 计时 、 计 分 的 程序 。 在 APPLE 上 经 反复 调试 , 多 
次 使 用 ,都 取得 满意 的 效果 。 现 提供 出 来 , 供 使 用 者 参 
考 。 ar 
本 程序 对 参赛 者 可 在 1 一 6 人 (组 ) 间 任意 选择 ,用 
低 分 辩 率 绘图 显示 组 号 .分 数 和 走时 ,同时 用 声响 和 文 
字 窗 对 走时 做 进一步 地 显示 。 具 有 显示 清晰 , 计时 淮 
确 ,使 用 方便 等 优点 。 

使 用 说 明 ， 

键入 RUN y 后 显示 “JI BEN FEN 王 ? ”, 向 用 户 询 
问 各 组 予 先 给 定 的 基本 分 。 可 键入 三 位 数字 的 分 数 
值 。 如 键入 200 、 。 

显示 “REN SHR 一 ”， 询问 参赛 的 人 《组 ) 数 。 可 在 
1 一 6 之 间 任 选 。 

显示 屏幕 用 低 分 辩 率 绘图 显示 出 各 组 的 编号 和 基 
本 分 的 值 , 同 时 在 绘图 区 的 下 方 绘 出 一 条 亮 线 。 

在 文字 和 窗 显示 “SHI JIAN 二 ”, 询 癌 抢答 或 答题 规 
定 用 的 时 间 值 。 可 键入 0 一 9 之 间 的 任意 数 。 根 据 键 
入 数字 的 不 同 , 可 分 下 列 三 种 情况 : 

1 车 是 键入 1 一 8 之 间 的 数字 , 则 把 该 数 乘 以 10 
视 为 规定 的 时 间 秒 数 。 一 旦 按 过 此 范围 的 某 个 值 , 计 
时 即 从 此 开始 。 每 经 过 一 秘 , 文字 窗 显 示 出 时 间 的 数 
字 并 发 出 一 声 “ 吐 ” 的 响声 , 同时 绘图 区 下 边 的 亮 线 的 
右边 增加 一 个 黑 点 ,累计 10 秒 后 ,右边 的 10 个 黑 点 消 
失 , 而 左边 出 现 一 个 黑 点 …… 。 著 需 中 途 停止 走时 ， 
只 需 按 下 “T” 键 即 可 。 若 在 走时 过 程 中 没有 按 过 “T” 
键 ， 就 按 规定 的 时 间 走 完 为 止 。 计 算 机 将 发 出 一 连 串 
“的 声响 表示 时 间 结束 , 同时 绘图 区 下 部 的 亮 线 恢 复 。 
不 论 时 间 中 途 停止 还 是 走 完 为 止 , 程序 将 再 次 转 到 询 
问 时 间 状 态 。 

2. 若 键入 “0”, 则 显示 “HAO SHU”, 询问 答题 者 的 
号 数 。 当 键入 号 数 后 又 显示 “Y/N/0”, 询问 答题 是 否 
正确 。 正 确 应 键入 “Y” 给 该 号 加 10 分 , 不 正确 应 键入 


“N"? 给 该 号 减 10 分 。 若 分 数 不 加 不 减 , 则 应 键入 “0”。 
计算 机 将 把 分 数 进行 修改 , 之 后 又 回 到 询问 状态 。 若 
在 输入 组 号 时 就 键入 了 “0”, 则 不 显示 “Y/N/0" 而 直接 
回 到 询问 时 间 状 态 。 即 “0” 是 询问 键入 时 间 和 询问 号 
数 的 切 变 信号 。 

3. 若 键 和 “9”, 则 清除 屏幕 后 结束 运 运行 

本 程序 除开 始 询问 基本 分 、 人 数 时 用 也 INPUT 语句 
(键入 数值 后 需 打 回 车 键 ) 外 , 以 后 各 项 询问 时 间 、 组 号 
值 时 不 需 再 打 回 车 键 。 这 就 给 使 用 者 带 来 很 大 的 方 
便 。 由 于 GET 后 面 询问 的 是 数字 , 所 以 采用 了 数值 变 
量 , 这 样 一 旦 键入 了 数字 以 外 的 其 它 健 ,将 显示 出 错 信 
息 而 停机 ,所 以 程序 采用 了 ON ERR GOTO ”语句 加 以 
处 理 。 这 样 一 来 ,不 论 错 按 了 什么 健 , 计 时 计 分 都 能 正 


常 进行 而 不 至 中 途 停机 。 


程序 中 810 语句 为 延 时 而 设 ， 改变 To 后 面 的 数 
值 ,可 把 走时 亩 准 。 
如 果 每 题 得 分 和 扣 分 要 随意 确定 ， 可 加 -_ 条 语句 
用 来 询问 ,该 语句 应 为 
465 PRINT“FN SHU 一 ”;GET F1:F1=-Flxx 10 这 
样 就 将 键入 的 数值 乘 以 10 做 为 分 数 的 加 减 量 。 
程序 : 
10 ”DTAT 1,1,2,1,3,1,4,1,4,2,4,3,4,4,4)5,4,6,4,7， 
3,7,2,7,1,7,1,6,1,5,1,4,1,3,1,2,0,0,0,0 
20 ”DATA 4,1,4,2,4,3,4,4,4,5,4;6,4,7,0;0,0,0,0,0， 
0,0,0,0,0,0,0,0,0,0,0;,0,0,0,0,0,0,0,0,0 
30 。 DATA 1,1,2,1,3，1,4，1，4，2,4,3，4，4，3，4，2，4,1，4， 
1,5,1,6,1,7,2,7,3,7,4,7,0,0,0,0;0,0,0,0 
40 DATA 1,1,2,1,3,1,4,1,4,2，4,3，4，43，4，2，4，1，4， 
4,5,4,6,4,7,3,7,2,7,1,7,0,0,0,0,0,0,0,0 
50 ”DATA 1,1,1,2,1,3,1,4,2,4,3，4,4)1,4,2,4,3，4，4， 
4,5,4,6,4,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
60 DATA 和,3,1,2,1,1,1;1,2,1,3，1,42，4)3，444， 
4,5,4,6,4,7,3,7,2,7,1;7,0,0,0,0,0,0,0,0 5 
70 ”DATA 4,1,3,1,2,1,1,1,1,2,1,3，1,4,2，4,3，4，4，4， 
4,5,4,6,4,7,3,7,2,7,1,7,1,6,1,5,0,0,0,0 
80 DATA 1,1,2,1,3,1,4,1,4,2,4,3，4,4,4,5,4,6,4,7， 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;0 
90 ”DATA 1,1,2,1,3,1,4;,1,4;2,4,3,4,4,4,5,4,6,4，7， 
3,7,2,7,1;,7,1,6,1,5,1,4,1,3,1,2,2,4,3，4， 
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100 
110 
120 


130 


140 
150 
160 
170 
180 
190 
200 


210， 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


380 
390 


400 


410 
420 
430 
440 
450 
460 


40 


DATA 3,4,2，4,1,4,1,3,1,2,1,1,2,1,3,1,4,1,4， 
2,4,3,4,4,4,5,4,6,4,7,3,7,2,7,1,7,0,0,0,0 

DATA 0,5,10,24,29,34,0,5,10,24,29,34,0,5,10， 
24,29,34 人 

DATA 0,0,0,0,0,0,13,13,13,13,13,13,26,26,26， 
26,26,26 

DATA 1,10,25,10,27,10,1,23,3,23,5,23,25,23， 
27,23,29,23,31,23,1,36,3,36,5,36,7,36,9,36， 
25,36,27,36,29,36,31,36,33,36,35,36 

HOME 

INPUT“JI BEN FEN 一 ? ”E 


INPUT “IEN SHU 一 ”有 R 


HOME 

ONERR GOTO 400 

Fl1 一 10 : 

DIM H(9,20),P(9,20),N(18),X(18),Y(18),A(18) 
B(18),W(18) 

FORK 一 0 TO 9 

FORL =1 TO 20 

READ HGK,L) ,P(K,L) 

NEXTL:NEXT K 

GR : COLOR 一 7 . 

FOR K 一 1 TO 18: READ X(K)， NEXT 
FOR K 一 1 TO 18 :READ Y(K) : NEXT 


FORK=1TOR:A(CK) 一 E:BIK) 一 E:NEXT 


FOR K 二 1 TO R 

FORL 王 1 TOK 

READ D1,D2 : PLOT D1,D2 

NEXT 工 , NEXT 民 

N1 一 1:N2. 一 Rr3 

FOR 和 K 一 1 TO R: ZP 一 100 

FORL = 王 1TO3 

PQ =PQ 十 1 ， . 

N(CPQ) =INT(CBGK)/ZP):B(K) 王 B(K) 一 NOPQ) * ZP: 
ZP 一 ZP/10:W(CPQ) 一 NCPQ) 


红 


，NEXT L:NEXT K: GOSUB 550 


GOSUB 700 

PRINT : PRINT “HAO SHU 一 〈1 一 一 一 "; Ri “)”;: 
GET F;PRINT F 

IFF( ) INT (F) ORF <0 ORF >RTHEN 400 
IEEEF =0GoTro 530 

PRINT“(Y/N/0)”; :GET S$: PRINT 

IF ss 一 “Y”"OR S 一 “<N”OR S$ 一 “0”THEN 460 
GOTO 430 

IF s 一 “0"THEN 530 、 


800 
810 
820 


830 
840 


IE S 一 “Y”THEN A (F) 一 A(F) 十 Fl1: BF) 一 A 
(F) :GOTO 490 

A(F) 王 A(FE) 一 Fl1:B(FE) 王 ACEF) 

N1L1 一 (CE 一 1) x* 3 十 1:N2 =Nl 十 2 

ZP 一 100. FOR K 王 N1 TO N2 

N(K) =-INT (BF) /ZP ):BCF) 王 B(E) 一 N(K) * 
ZP:ZP 一 ZP/10 

NEXT 和 :GOSUB 550 

GoSUB 700 

GoTo 400 

FOR Z = 王 N1 TO N2 

IF W 一 0THEN 630 

ENGCZ) 一 W(CZ) THEN GOTO 680 

COLOR 一 0 

FOR 和 一 1 TO 20 

了 PE HOW(Z),K) 一 0 THEN 630 

PLOT HCW(Z),K) 十 X(Z) ,PC(W(Z),K) 十 Y(Z) 
NEXT 天 

CokeR=7 

FOR KK 王 1 TO 20 

亚 HONGCZ),K) 一 0 THEN 680 

PLOT HGCN(CZ) ,K) 十 X(Z)，PGINCZ), 民 ) 十 Y(CZ):W 
《(Z) 一 NGCZ) 


NEXT 天 
NEXT 之 

有 一 1: RETURN 
S 一 1:S1 一 20 


COLOR 一 7: HLIN 0,39 AT 38:; HLIN 0,39 AT 39 
PTINT “SHI JIAN 一 当 : GET AB:， PTINT 

IF AB 一 0 THEN 840 

IF AB 一 9 THEN TEXT :HOME :END 

FORK 一 0TO AB * 10 

IF PEEK (一 16384) 一 212 THEN GET K$， GOTO 
700 

PRINTK: IFK 一 0THEN 830 

COLOR =-0:VLIN 38,39 AT S1;S1==S1 十 2 

IF S1 >39 THEN S1 一 20; VLIN 38, 39 AT S: S 一 S 
十 2， COLOR 一 7， HLIN 20, 39 AT 38: HLIN 20, 39 
AT 39 

PRINT CHR$ (7) 

FOR SD 一 1 TO 450, NEXT SD 

正式 一 AB x* 10 THEN FOR 一 1 TO 10: PRINT CHR 
$ (7): NEXT 

NEXT K, PRINT K 一 1 :GOTO 700 

RETURN 


。 译 文 。 


介绍 一 种 新 型 的 微机 IVO 接口 芯片 
王 应 东 


SY6532 数据 块 与 SY6500 微 处 理 机 系列 一 起 使 
用 。 它 由 128X8 字 节 的 RAM、 两 个 由 软件 控制 的 8 
位 双向 数据 口 〈 它 允许 在 微 处 理 机 和 外 设 间 直 接地 进 
行 信息 交换 )、 一 个 可 编程 的 具有 定时 中 断 能 力 的 时 间 
定时 器 .时 钟 周期 和 边缘 检测 中 断 电路 所 组 成 。 


. 主要 功能 如 下 : 
. 用 于 直接 同 微 处 理 机 通讯 的 8 位 双向 数据 总 操作 温度 范 轩 
. 可 编程 的 边缘 检测 中 汤 Ce 


。128X8 字 节 的 RAM 
“ 用 于 同 外 设 接口 的 两 个 8 位 双向 数据 口 
“两 个 可 编程 的 YoO 数据 方向 寄存 器 
“可 编程 的 时 间 定 时 器 
“可 编程 的 定时 中 断 
" ITTL 和 CMOS 兼容 的 外 部 连接 线路 
“ 具有 直接 地 驱动 晶体 管 的 输出 脚 
“ 具有 高 阻 态 的 三 态 数据 引 脚 
二 内 部 结构 框图 及 电气 参数 说 明 ( 表 一 、 二 ) 


4 一 可 有 S， 及 /让 ， 用 5S，g2， 08 OCS 


高 阳 时 输入 电流 
PTN 一 048 一 2. 47 } 


一 疡 


输入 高 电流 
YIN 一 2.41 
傈 汐 尖 忆 B 一 己 B; } 


输入 低 电流 (IN 一 0.47) 
(PP4 一 Piy 己 PP 一 己 B) 
3 


SY6532 


输出 高 电压 : (rcc = 最 小 值 ,1F04D 
所 一 100x4) 
《P4 一 P4 太 B 一 PP 一 站) 


(1204D 委 3m4 (P4 一 P4) 


”和 镍 掉 只 电压 


CC 一 最 小 值 
Cs ) 
输出 高 电流 
本 4 ，( 忆 4 一 P4;， ， 已 B, 一 疡 卢 ， 


图 1 管 脚 排列 图 7 


Fo 之 1.5，( 可 直接 驱动 三 极 


所 输出 低 电 流 了 Oo < 妇 0. 47 
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PA0 PA7 ” PB0 PB7 


D0 D7 A0 A6 RS CSiCS292R/WRES HRQ 
2 ， 内 部 结构 框图 
三 、 接 口 信号 的 描述 


，Reset ( 克 万 S ) ， 


在 系统 初始 化 期 间 ， 有 ES 上 的 逻辑 “0” 输入 将 引 
起 4 个 IO 寄存 器 都 处 于 “0” 状态 。 在 软件 的 控制 之 
下 , 当 系 统 处 于 一 个 特定 的 状态 时 , 它 将 定义 所 有 的 
I/O 总 线 为 输入 。 在 RESET 期 间 , 数据 缓冲 区 被 置 为 
OFF 一 STATE 状态 , 中断 被 屏蔽 ,， 当 需要 REST 信和 号 
时 ,，R5S 保持 至 少 为 一 个 时 钟 周期 。 

jlnput clock 

系统 的 输入 时 钟 信号 。 它 可 以 是 低 电 位 时 钟 

(<0.477rD>2.47)， 也 可 以 是 高 电位 时 钟 (Prr 


<<0.2FPom 全 
READ/WRITE RAW: 

该 信号 由 微 处 理 机 提供 。 用 以 传送 数据 到 微 处 理 
器 和 6532, 或 从 微 处 理 器 和 6532 发 出 数据 。R/W 为 
“高 ”允许 微 处 理 器 读 (和 适当 的 地 址 一 起 ) 由 6532 提 
供 的 数据 , R/W 为 “ 低 ” 时 允许 徽 处 理 器 写 (和 适当 的 
地 址 一 起 ?到 6532 。 
Interrupt Request 〔〈789) ， 


寺 G 是 来 自 中 断 控制 逻辑 的 中 断 信号 , 正常 情况 
下 为 高 电 平 。 当 SY6532 发 出 中 断 申 请 时 为 低 电 平 。 
元 5 是 集 开路 输出 , 它 多 许 几 个 单元 “ 线 或 ”到 公用 的 
77G 微 处 理 器 的 输入 脚 。 通 过 P4, 或 定时 器 时 间 到 的 
跳 变 可 以 使 79 有 效 。 
Data Bus《〈 Do 一 六 ) : 

”该 数据 块 有 8 条 双向 数据 针 , 它们 接 到 系统 的 数 
据 线 , 用 于 与 徽 处 理 器 交换 数据 。 除 在 “ 读 ” 操作 发 生 
的 时 候 ,输出 缓冲 器 保持 截止 状态 。 

外 设 数据 缓 证 器 ， | 

该 数据 块 有 16 条 用 于 IO 操作 的 输出 针 , 每 一 针 
都 可 独立 地 被 编程 为 输入 或 输出 。 这 16 针 被 分 为 两 
个 8 位 口 ，P4 一 P4,PB7PB,。 将 “0” 写 到 数据 方向 
寄存 器 相应 的 位 , 可 将 相应 的 输出 针 定 义 为 输入 。 写 
“1”, 则 可 将 相应 的 输出 针 定义 为 输出 。 
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地 址 输出 针 ,( 4 一 4 ， 
7 个 地 址 输出 针 。 它 们 和 耳 (寄存 器 选择 )， 
CS 和 55，( 片 选 信 叶 ) 一 起 使 用 , 用 于 选择 芯片 和 寄存 


6532 包含 有 128 X8 的 RAM。 通 过 4 一 4,， 
FSCcS, ,和 CS8: 来 寻 址 。 寻 址 方法 见 寻 址 译 码 表 。 
寄存 器 ; 

该 数据 块 有 4 个 内 部 寄存 器 : 两 个 数据 方向 寄存 
器 和 两 个 输出 寄存 器 。 数 据 方向 寄存 器 (A 口 和 B 口 ) 
控制 数据 I/O 的 方向 。 当 数据 方向 寄存 器 (DDRA 和 
DPRB) 中 某 位 为 “0”, 则 定义 相应 MO 口 的 引出 针 为 输 
入 ,反之 为 输出 。 用 

时 间 定 时 器 ， 

时 间 定 时 器 有 三 个 基本 部 份 :除法 寄存 器 , 可 编程 
的 8 位 害 存 器 和 中 断 逻 辑 。 当 定时 器 被 编程 为 计算 
时 ， 可 达到 256 种 定时 间隔 。 每 种 定时 间隔 可 以 是 ， 
1T,8T,64T 或 1024T 的 增 量 。( 此 处 的 工 是 系统 时 钟 


写 输出 寄存 器 和 
读 输 出 寄存 器 A 


写 输出 寄存 器 B 
读 输出 寄存 器 B 
宇 定 时 器 


一 上 工 


一 8T 


一 64T 


二 1024T 
读 定时 器 
读 中 断 标 志 


边沿 检测 控制 


(下 转 52 页 ) 


“ 硬 、 软 件 产品 


集训 只 Worksjop 
内 于 们 区 


CEC-I 中 华 学 习 机 简介 


潍坊 计算 机 公司 “ 王 进 吉 


CEC-I 中 华 学 习 机 是 由 电子 工业 部 计算 机 与 信息 
局 组 织 , 由 清华 大 学 主持 联合 设计 , 由 国营 七 三 四 厂 、 
深圳 华 明 计算 机 有 限 公 司 , 陕西 省 计算 机 厂 等 单位 参 
加 研制 成 功 的 一 种 微型 计算 机 。 该 机 的 特点 是 结构 灵 
活 , 其 主机 配 上 家 用 彩色 或 黑白 电视 机 和 合式 录音 机 ， 
就 可 以 组 成 基本 系统 ; 若 插 上 汉字 系统 部 件 和 软盘 驱 
动 器 接口 部 件 (在 主机 大 板 土 均 留 有 相应 位 置 ),， 再 接 
上 软盘 驱动 器 ,就 可 以 构成 一 台 功 能 强 , 有 汉字 系统 支 
持 且 价格 低廉 的 微机 系统 。 

CEC-I 中 华 学 习 机 的 主要 性 能 和 丢 术 指 标 ， 
一 、 硬 件 

1、CPU 6502， 时 钟 频率 1. 023MHz, 单一 十 5v 电源 


供电 。 数 据 总 线 8 位 , 地 址 总 线 16 位 , 直接 寻 址 范围 - 


64KB 。 


2、RAM 64KB, 由 两 片 64KX4 位 的 集成 电路 


HM50464 构成 ; ROM32KB, 包括 监控 程序 , RASIC 解释 
程序 ,汉字 处 理 程序 等 。 

3、 专 用 芯片 

MMU : 存储 器 管理 部 件 , 其 主要 功能 是 根据 需要 
选中 相应 的 存储 器 

IOU: 输入 输出 管理 部 件 , 其 主要 功能 是 根据 显示 
方式 的 不 同 选取 相应 的 显示 缓冲 区 。 

PAL 电路 :为 一 可 编程 的 逻辑 阵列 电路 ,其 主要 功 
能 提供 主机 大 板 上 所 需 各 种 时 序 信号 

4、 显 示 方 式 . 

中 华 学 习 机 共有 五 种 显示 方式 : 

(1) 文 本 方式 

字符 为 5X7 点 阵 , 满 屏 可 显示 24 行 X40 列 共 
960 个 字符 ,有 正常 \ 反 相 , 闪 烁 三 种 状态 。 

〈2) 低 分 辩 率 图 形 方式 

可 显示 48 行 X40 列 共 1920 个 彩色 方块 ,每 个 方 
块 可 在 16 种 不 同 的 颜色 中 选择 

(3) 高 分 辩 率 图 形 方式 

可 显示 192 行 X280 列 个 彩色 点 , 每 个 点 的 颜色 
可 在 6 种 颜色 中 选 择 

《4) 混 合 显示 方式 : 

可 以 是 低 分 辩 率 图 形 方式 与 文本 方式 的 混合 , 即 
40 行 X40 列 彩 色 方 块 与 4 行 X40 列 字 符 的 混合 显 


示 ; 也 可 以 是 高 分 辩 率 图 形 方式 与 文本 方式 的 混合 , 即 
160 和 六 2 和 列 个 彩色 点 与 4 行 X40 列 字符 的 混合 显 
示 。 

各 种 方式 均 可 通过 控制 软 开 关 实 现 转换 。 

5) 汉 字 显 示 方 式 ， 

每 个 汉字 为 16X16 点 阵 , 满 屏 可 显示 10 行 X17 ， 
列 共 170 个 汉字 , 外 加 一 个 状态 行 ; 

ASCI 字符 为 8X16 点 阵 , 满 屏 可 显示 10 行 X34 
列 共 340 个 AScf 字符 ,外 加 一 个 状态 行 。 

5. 键盘 

， 中华 学 习 机 键盘 为 打字 机 式 标准 键盘 ,外 加 一 些 

特殊 功能 键 , 共 有 69 个 键 , 通 过 一 条 26 线 扁 平 电 缆 与 
主机 相连 是 最 基本 的 输入 设备 。 

6. 汉字 系统 

汉字 系统 由 汉字 管理 程序 与 汉字 库 ( 包 括 国际 一 、 
二 级 仿宋 体 汉 字 ) 构成 , 已 提供 拼音 、 区 位 两 种 汉字 输 
入 方式 ,另外 留 有 相应 的 硬件 与 软件 接口 供用 户 自 行 
扩充 时 应 用 。 

汉字 系统 可 根据 用 户 需要 取 含 。 

7、 扩 充 揪 模 

主机 提供 一 个 与 APPLE 机 兼容 的 扩充 持 槽 , 由 于 


汉字 系统 已 占用 3 号 播 槽 ,软盘 驱动 器 接口 已 占用 6 


号 捅 槽 ,因而 保留 的 这 个 揪 槽 可 通过 号 接 播 座 定义 为 
1.2.4.5.7 号 ,出 三 时 该 播 槽 定义 为 1 号 。 

8、 驱 动 器 接口 ， 

在 主机 板 上 相应 位 置 插 上 驱动 器 接口 器 件 , 就 可 


连接 一 台 软 盘 驱 动 器 。 要 求 配 用 5 本 叶 软 盘 驱 动 器 ， 


使 用 单 面 单 密度 5 了 时 软盘 , 格式 化 后 盘 的 容量 约 
140K 。 

该 接口 也 可 视 用 户 需要 取 合 。 

9 录音 机 接口 

主机 板 已 提供 一 ER 
连接 起 来 后 , 无 论 在 监控 状态 下 或 BASIC 状态 下 都 可 
以 很 方便 地 将 信息 存 到 磁带 上 或 从 磁带 上 读 到 内 存 进 
行 处 理 。 

该 接口 输入 输出 特性 参数 如 下 
输入 电压 :峰值 1V ”输入 阻抗 :12KQ 《下 转 45 页 ) 
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“ 电脑 应 用 


浅 论 ^APPLE 机 在 生 油 兰 热 解 分 析 方 面 的 应 用 


丛 仁 滋 


一 .引言 
“Rock-eval"T、I 现 仪 是 我 国 几 个 大 型 油 由 所 属 的 

地 质 研究 部 门 广泛 使 用 的 一 种 用 于 估算 地 下 储 油 量 
的 仪器 。 这 种 仪器 对 被 分 析 的 崖 芯 进 行 升温 加 热 , 收 
集 岩 芯 中 的 有 关 生 油 方面 的 有 机 化 学 成 份 , 并 转换 为 
电信 和 号 进行 处 理 分 析 , 打印 出 相应 的 数据 。 但 是 由 于 
仪器 所 给 出 的 只 是 分 析 结 果 , 还 不 能 满足 地 质 研 究 人 
员工 作 中 的 需求 , 于 是 , 我 们 用 莹 果 机 开机 与 “Rock- 
eval" IT 型 仪 联 机 开发 ， 利 用 计算 机 对 生 油 岩 热 解 分 析 
过 程 进 行 定 时 的 数据 采集 并 处 理 , 而 且 没 有 破坏 仪器 
原来 使 用 方法 的 完整 性 ,使 用 户 感到 满意 。 
二 、 系 统 的 硬件 配备 

除了 苹果 机 的 基本 系统 以 外 , 还 配备 了 用 于 作 中 
断 源 的 苹果 机 专用 时 钟 卡 一 块 ,12 位 的 A/D 卡 一 块 。 

在 系统 配件 的 选 型 上 , 我 们 考虑 到 “Rock-eval”T 
型 仪 输出 至 记录 仪 的 模拟 信号 的 最 大 幅度 值 为 1V， 
而 用 户 又 要 求 计算 机 要 能 分 辩 0. 5mv 以 上 的 电信 号。 
如 要 使 用 8 位 的 A/D 板 , 则 计算 机 对 于 输入 的 模拟 信 
号 的 最 小 分 辨 能 力 为 : 5/225 王 19. 6mv。 如 果 将 输入 
的 模拟 信号 放大 到 8 位 A/D 板 能 分 辩 的 信和 号 的 范围 
之 内 ， 就 要 将 输入 信号 放大 19.6/0. 5 一 39. 2 一 40 倍 ， 
而 “Rock-eval” 由 型 仪器 输入 的 模 似 信号 的 最 大 幅 值 
1V， 经 过 40 倍 放大 就 会 大 于 A/D 板 的 输入 极限 值 
5V,， 因此 选用 8 位 A/D 板 是 不 能 满足 要 求 的 。 如 要 
选用 12 位 A/D 卡 , 则 计算 机 所 能 分 辩 的 最 小 模拟 信 
号 为 5/2048 王 2: 44mv， 再 加 一 级 前 置 放大 , 以 输入 信 
号 放大 5 倍 ,那么 A/D 板 可 分 辩 的 输入 信和 号 最 小 幅 值 
”为 2.44mv/5=0. 49mv<0. 5mv, 就 能 够 满足 用 户 的 要 
求 , 并且 仪器 输出 的 模 似 信和 叶 的 最 大 幅 值 1V, 经 过 5 
倍 放大 以 后 ,也 仍 在 A/D 板 允 许 的 输入 范围 之 内 。 所 
以 我 们 选用 了 带 有 四 路 前 置 放大 器 的 12 位 A/D 板 。 
根据 仪器 输出 的 特点 ,我 们 用 一 路 A/D 转换 通路 作为 
数据 采集 通路 ,而 用 另 一 路 转换 通路 ,作为 数据 采集 
过 程 的 启动 信号 。 由 于 在 数据 采集 过 程 中 要 使 用 中 
断 服 务 子 程序 来 完成 数据 采集 工作 , 我 们 选用 时 钟 板 
作为 系统 可 屏蔽 中 断 的 中 断 源 来 控制 两 次 中 斯 的 间 
隔 时 间 。 . 
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由 于 “Rock-eval"I 型 仪 的 模拟 信号 输出 幅度 一 般 
较 大 (Imv~1lv) ,而且 A7/D 板 的 前 置 放大 器 的 放大 倍 
数 并 不 很 大 , 信号 干扰 也 很 小 , 所 以 在 硬件 的 配备 上 ， 
我 们 没有 加 低 通 滤波 器 。 

三 、 软 件 设计 

生 油 岩 热 解 分 析 的 过 程 是 这 样 的 : 首先 是 三 分 钟 
清理 管道 的 时 间 , 其 次 是 在 300C 的 条 件 下 保持 恒温 
三 分 钟 , 再 次 是 五 分 钟 内 霸 塌 从 300C 一 500C 的 升温 
过 程 , 最 后 是 在 550C 的 条 件 下 保持 恒温 一 分 钟 。 由 
于 在 升温 过 程 中 , 仪器 对 放 在 其 内 部 加 旨 炉 中 的 寺 锅 
是 以 每 6 秒 升温 5C 的 速率 进行 加 温 的 。 并 且 在 对 坦 
锅 加 温 的 同时 , 将 有 关 生 油 的 有 机 化 学 成 分 转换 成 的 
与 之 对 应 的 电信 号 送 至 记录 仪 , 所 以 我 们 在 设计 数据 
采集 及 分 析 过 程 的 主 控 程 序 的 结构 时 采用 了 这 样 一 
个 结构 ， 即 用 机 器 语言 程序 完成 数据 采集 工作 ; 用 
APPLE SOFT BASIC 语言 程序 进行 数据 的 计算 、 处 理 
和 数据 存盘 以 及 图 象 显示 等 工作 。 由 于 用 户 认为 在 
他 们 研究 工作 中 , 卉 锅 每 升温 5C (其 时 间 间 隔 为 6 秒 
钟 ) 计算 机 采集 一 个 数据 便 可 满足 他 们 对 于 关于 岩 芯 
样品 的 生 油 方面 的 数据 要 求 。 于 是 我 们 采用 了 定时 
使 计算 机 产生 一 次 中 断 的 方法 , 利用 中 断 服 务 程序 来 
完成 数据 采集 工作 。 对 于 两 次 中 断 之 间 的 时 间 间 隔 
的 长 短 , 由 苹果 机 的 专用 时 钟 卡 提供 的 可 屏蔽 中 断 源 
提出 的 中 断 请 求 来 控制 。 由 于 岩 芯 样品 分 析 过 程 的 
特点 ,要求 控制 程序 对 于 数据 采集 的 全 过 程 进行 图 象 
跟踪 显示 , 并 对 过 程 中 的 每 一 个 分 段 (300C 条 件 下 的 
三 分 钟 恒 温 、300C 一 500C 的 升温 段 及 550C 条 件 下 


”的 恒温 ) 进行 图 形 面 积 积分 ,每 隔 5C 保 留 升温 段 中 的 


一 个 数据 并 求 出 这 些 数据 所 对 应 的 输入 曲线 到 达 最 
大 值 时 所 对 应 的 温度 值 Tmax 等 等 。 根 据 如 上 这 些 要 
求 ,我 们 设计 了 程序 的 总 体 结构 。 为 了 提高 A/D 板 所 
采集 的 数据 的 可 靠 性 , 采用 了 程序 滤波 , 即 每 一 个 数 


据 采集 点 连续 采集 六 次 用 公式 4 一 (> Ja 二 on 
amarz)/4 $ 则 人 为 本 次 数据 采集 点 的 采样 值 。 


在 图 形 显示 上 , 采用 了 高 分 辩 全 屏幕 图 形 显示 ， 
在 屏幕 拷贝 上 , 使 用 了 倍 宽 拷 贝 。 对 于 采集 的 数据 所 


进行 数值 积分 计算 上 , 采用 了 常用 的 梯形 积分 。 由 于 
起 峰 区 间 的 图 形 近似 于 二 次 曲线 , 所 以 , 要 采用 回归 
方程 的 形式 时 ,我 们 采用 了 二 次 方程 的 形式 ， 
工 一 4X: 十 2X 十 C 

对 采集 到 的 起 峰 区 间 的 数据 进行 二 次 回归 , 并 求 出 热 
解 峰 温 Tmax 来 。 

为 了 资料 管理 上 的 方便 , 在 这 个 系统 中 , 设计 了 
用 于 打印 报告 表 、 数 字 表 的 程序 块 以 及 各 种 样品 的 曲 
线 重 玲 程序 块 , 这 主要 是 用 于 不 同样 品 之 间 的 生 油 情 


机 村 初 敬 参数 , 薛 待 迁 释 信 号 ] 


显示 


国 


了 
全 将 采集 的 数据 和 积分 数据 存 入 盘 中 
了 


网 2 上 控制 程序 框图 


况 的 比较 和 为 原始 的 生 油 量 8, 的 估计 做 准备 工作 。 
四 ,总 结 

将 以 上 的 程序 块 配 接 成 一 个 系统 , 进行 了 一 段 时 
闻 的 运行 , 其 结果 说 明 APPLE 机 和 Rock-eval 联机 能 
起 到 一 个 专用 微型 机 的 作用 , 并 具有 图 象 跟踪 显示 、 
报表 打印 和 数据 归档 存盘 等 一 些 专用 微型 机 所 不 具 
有 的 优点 , 而 且 还 为 以 后 计算 地 下 岩 芯 最 原始 的 含油 
量 S*: 和 更 精确 地 估算 地 下 储 油 量 作 了 一 些 必 要 的 准 
备 工 作 , 从 而 推广 了 苹果 机 的 应 用 范围 。 


(上 接 43 页 ) 

输出 电压 :25mv 输出 阻抗 :100@ 〇 

10 扬声器 接口 

主机 板 上 提供 的 扬声器 接口 已 连接 一 个 0. 25w,8 
已 的 扬声器 。 

1 提供 三 个 电 平 开关 信和 号 输入 及 四 个 模拟 量 输 
入 ,可 以 运行 原 APPLE 机 的 绝 大 多 数 游戏 软件 。 

二 、 软 件 4 

1 、 系 统 软件 

主机 板 上 已 固化 好 的 系统 软件 包括 监控 、BASIC、 
LOGO ( 子 集 ) 和 汉字 处 理 软件 。 另 外 , 原来 APPLE 机 
的 系统 软件 如 DOS3. 3 磁盘 操作 系统 、CP/M2. 2 操作 
C.S.D 一 P 系统 均 可 在 中 华 学 习 机 上 应 用 。 

应 用 软件 

除了 原 APPLE 机 的 应 用 软件 外 , 中 华 学 习 机 还 有 
一 些 应 用 软件 和 游戏 软件 ,现在 可 提供 的 有 华容 道 .小 
能 学 英文 .高 中 物理 .音乐 黑板 .英文 打字 练习 、 小 学 数 
学 ,汽车 设计 师 、 天 文 观测 台 、 化 学 实验 室 、 美 术 设计 师 
等 十 余 种 ,以 后 随 着 该 机 的 普及 ,将 会 有 更 多 富有 特色 
的 软件 出 现 。 

中 华 学 习 机 目前 全 国 已 有 十 多 家 计算 机 厂家 生 
产 ,潍坊 计算 机 公司 微电脑 三 是 第 一 批 生 产 厂家 之 一 ， 
现 已 批量 生产 ,欢迎 全 国 各 地 新 老 用 户 使 用 , 愿 它 成 为 
您 学 习 ; 工 作 的 好 助手 ! 
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. 故障 检测 与 维修 连载 


第 九 章 “” 进 一 步 的 故障 愉 交 技 术 


在 以 上 各 章 中 我 们 已 经 介绍 了 许多 有 关 革 果 机 故 
。 障 检查 的 基本 技术 , 可 以 看 出 对 于 华 果 机 故障 的 识别 
和 校正 有 11 个 最 佳 步 又 ; 同时 , 我 们 也 介绍 了 怎样 识 


径 : 

1. 硬件 的 途径 ; 

2. 软件 的 途径 ; 

3.、 自身 诊断 ; 

4. Apple 专用 方法 。 

在 硬件 途径 中 ,使 用 检查 工具 ,如 逻辑 探测 器 和 逮 
辑 脉冲 发 生 器 逐步 检查 线路 , 这 就 要 求 我 们 有 测试 设 
备 以 及 某 些 数字 电路 的 知识 。 

软件 的 途径 在 华 果 机 修理 技术 中 是 一 种 广 泛 使 用 
的 寻找 故障 的 方法 ， 只 要 磁盘 驱动 器 能 正确 地 进行 自 
举 , 使 用 诊断 软件 查找 芯片 的 故障 是 很 有 效 的 。 

Apple 专用 方法 使 用 第 四 章 和 第 七 章 的 寻找 故障 
指南 可 以 快速 地 正确 指出 芯片 可 能 出 现 的 故障 ,如果 
断定 问题 不 是 出 在 芯片 则 还 应 进一步 找 出 出 现 故障 部 
分 的 位 置 , 这 时 就 需 应 用 本 章 所 介绍 的 技术 , 测试 可 疑 
的 故障 区 域 的 其 余 元 器 件 。. 

在 本 章 中 将 进一步 介绍 检查 故障 的 技术 , 以 及 维 
修 使 用 的 各 种 工具 , 像 本 书 其 他 部 分 一 样 , 这 半 所 论述 
的 也 是 为 保持 苹果 机 系统 高 质量 操作 状态 的 实质 性 资 
料 。 

第 一 节 ”检测 工具 与 设备 


当 问 题 不 能 只 藉 助 於 操作 程序 与 面 纸 得 到 解决 


时 , 则 要 进一步 藉 助 於 “ 工 具 ”, 这 些 维修 工具 不 仅 只 是 
螺丝 刀 、 偏 叶 钳 和 烙铁 头 , 同 时 也 包括 电气 测试 设备 一 
各 种 测量 仪表 (VOM, DVM, DMM)， 逻辑 探 针 器 , 逻辑 
脉冲 发 生 器 , 电流 故障 检 寻 器 , 接线 夹子 , 示波器 以 及 
还 辑 和 图 象 分 析 器 。 

近年 来 电气 测量 设备 已 有 很 大 的 改进 ,测试 和 寻 
找 电路 故障 的 效率 有 了 明显 的 提高 。 二 十 年 前 出 现 的 
称 为 VOM 的 测量 仪表 (电压 一 欧姆 一 训 安 表 ) 可 以 用 
来 测量 电器 电路 的 三 个 参数 , 即 电压 .电阻 和 电流 。 然 
后 是 VTVM 真空 管 电压 表 ) 。 在 电气 电路 让 位 于 电子 
电路 不 久 ,数字 电路 代替 了 模拟 电路 ,运用 这 些 新 的 电 
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别 计 算 机 各 种 元 器 件 的 知识 , 以 及 寻找 故障 的 四 条 途 


路 设计 出 了 寻找 故障 的 新 型 测量 仪表 。DVM (数字 电 
压 表 ) 和 DMM( 数 字 万 用 表 ) 很 快 成 为 数字 技术 的 优先 
选用 测量 设备 , 因为 它们 提供 了 适 于 电子 电路 测试 的 
很 多 优良 性 能 , 其 中 也 包括 测量 精度 的 提高 。 这 种 仪 
表 具 有 高 的 输入 阻抗 (或 电 肯 ), 因此 它们 不 会 降低 数 
字 电 路 被 测 点 的 电压 ,也 不 会 增加 被 测 点 的 负载 。 

两 种 变化 影响 了 检查 和 修理 工具 的 型 式 。 第 一 ， 
真空 管 被 固体 器 件 如 半导体 三 极 管 和 集成 电路 (IC)， 
或 芯片 代替 ;第 二 ,电路 本 身 是 由 很 多 光 件 紧凑 地 集成 
在 很 小 的 芯片 上 , 从 而 它们 的 体积 变 得 更 小 了 。 只 需 
拿 早期 的 收音 机 或 电视 机 (直立 有 4 园 高 , 重 40 磅 ) 与 
现代 的 手表 式 收音 机 或 手表 式 电视 机 比较 一 下 , 就 可 
以 认识 到 电子 线路 是 更 小 .更 复杂 ,更 难 测试 。 

电子 学 的 进步 给 电子 技术 的 发 展 提供 了 广阔 的 前 
景 , 设计 者 们 立即 使 用 这 种 技术 和 新 型 的 元 器 件 制 作 
出 了 各 种 灵巧 的 测试 设备 。 在 数字 电路 的 测试 中 不 用 
担心 过 多 地 增加 电路 负载 而 引起 的 不 精确 读数 。 也 不 
会 由 于 体积 粗大 的 测试 笔 在 芯片 管 著 或 密集 的 印刷 线 
路 之 间 造 成 短路 而 毁坏 电路 。 

一 . 逻辑 接线 板 

逻辑 接线 板 是 一 种 数字 电路 测试 设备 。 这 种 方便 
的 工具 能 在 其 上 徊 安装 集成 电路 器 件 , 并 将 其 管 脚 圳 
出 在 板 的 上 面 , 测量 或 监测 笔 或 者 微型 接线 夹子 可 以 
接触 这 些 管 脚 , 以 便 确定 所 测 元 件 的 任意 管 脚 的 逻辑 
电 平 。 

另 一 种 型 式 的 逻辑 接线 板 具 有 内 部 监视 的 性 能 ， 
除了 露出 的 管 邯 外, 在 该 接线 板 的 顶部 连接 了 一 行 发 
光 的 二 极 管 , 它们 不 断 地 显示 芯片 上 每 个 管 脚 逻辑 状 
态 , 这 些 发 光 二 极 管 (LBDs ) 由 被 测 电路 的 电源 导 通 
(表示 逮 辑 “1”) 。 全 部 管 脚 上 都 接 有 缓冲 电路 , 因而 不 
会 增加 被 测 电路 的 负载 。. 

注意 : 当 使 用 逻辑 接线 板 时 , 先 关 闭 电 源 , 装 上 芯 
片 后 ,再 打开 电源 (这 样 可 以 防止 芯片 的 偶尔 短路 ) 。 

逻辑 接线 板 可 以 做 成 各 种 不 同型 式 。 几 乎 可 适用 
于 全 部 逻辑 元 件 系 列 , 包括 TTL 和 CMOS 芯片 ,而 其 
直流 电源 电压 可 以 达到 30V。 

在 使 用 接线 板 时 , 分 别 将 项 部 的 LED 接线 端子 插 


入 管 脚 接 触 点 ,并 将 接线 夹子 在 被 测 芯片 顶部 滑动 , 当 
电路 通电 时 ，ZBDs 将 指示 芯片 上 的 每 个 管 脚 的 逻辑 
电 平 。 

逻辑 接线 板 可 以 用 於 多 达 16 个 管 脚 的 集成 电路 
芯片 《7Cs )， 或 者 说 它 适 用 于 4ppleIIPlse 母 板 80%% 的 
集成 电路 芯片 。 
二 远 辑 探 针 

当 需 要 确切 地 研究 线路 情况 时 ,可 以 使 用 逻辑 探 
针 。 毁 坏 的 芯片 是 不 能 修理 的 。 但 是 逻辑 探 针 可 以 找 
出 已 经 损坏 的 芯片 ,以 便 更 换 。 

逻辑 探 针 在 电路 板 的 分 析 中 ,: 它 是 一 种 使 用 非常 
广泛 的 工具 。 虽 然 它 不 能 像 复 杂 的 测试 设备 逻辑 分 析 
器 那样 做 那么 多 工作 , 但 是 当 电 子 线路 频繁 出 现 的 世 
片 故 障 , 在 通电 电路 中 使 用 这 种 探 针 可 以 简单 可靠 和 
迅速 的 查找 故障 。 使 用 这 种 工具 在 电路 分 析 中 90%% 
的 问题 可 以 得 到 解决 。 

当 探 针 的 细小 尖端 与 某 个 被 怀疑 的 芯片 管 脚 接 
触 ,或 者 在 电路 板 上 追踪 检查 某 个 测试 点 时 ,在 靠近 探 
针 处 的 指示 灯 指 示 出 该 点 的 好 辑 状态 〈 电 平 ), 市 售 大 
多 数 逻 辑 探测 器 的 金属 探 针 在 偶尔 接触 到 高 于 选 通电 


， 玲 (+5 伏 ) 的 电源 电压 时 , 有 防护 功能 , 不 至 损坏 (可 


防护 高 达 120V 交流 电压 ,时 间 30 秒 ) 。 
某 些 探 测 器 在 它们 的 探 针 附近 装 有 两 个 指示 灯 ， 
其 一 是 表示 逻辑 高 电 平 ; 另 一 表示 逻辑 低 电 平 。 更 好 
的 探测 器 可 以 指示 哪个 测试 点 出 现 了 脉冲 信号 , 它们 
还 能 存 入 一 个 短 的 脉冲 串 ， 以 指示 测试 点 出 现 的 假 信 
号 或 是 脉冲 尖峰 。 购 置 逻辑 探 针 ,应 该 选择 适合 所 要 
分 析 的 逻辑 芯片 系列 的 那 一 种 型 号 。 
对 於 电路 的 诊断 分 析 , 使 用 逻辑 探 针 接触 某 一 点 
就 能 确定 该 点 的 状态 和 能 存 入 脉冲 的 这 两 种 功能 , 使 
有 还 辑 探 针 成 为 广泛 使 用 的 诊断 工具 。 除 了 十 分 复杂 的 
数字 电路 以 外 , 都 能 很 方便 地 用 它 来 寻 查 故障 。 逮 辑 
探 针 还 能 直接 显示 接触 点 附近 的 工作 状态 , 而 其 他 欣 
测 仪器 通常 要 借助 别 的 显示 设备 来 观察 测试 情况 。 
膛 辑 探 针 提供 路 种 指示 : 
灯光 熄灭 表示 逻辑 低 电 平 ( 逻 辑 0); 
灯光 明亮 表示 逻辑 高 电 平 (逻辑 1); 
;灯光 暗淡 表示 不 定 或 三 态 ; 
灯光 闪烁 表示 脉冲 信和 号 ; 
逻辑 探测 器 的 电源 从 测试 线路 的 某 电压 点 通过 接 
线 夹 子 输 入 , 另 一 个 夹子 与 地 接触 ,这 样 可 提高 灵敏 度 
并 减少 燥 声 。 
逻辑 探测 器 探测 低频 窑 脉 冲 是 很 理想 的 , 这 种 脉 
冲 难 於 在 示波器 上 看 到 。 而 用 逻辑 探 针 就 能 迅速 地 确 
定 门 的 输出 端 挂 起 或 闭锁 在 高 电 平 或 低 电 平 状 态 。 
使 用 逻辑 探 针 作 电 路 分 析 一 个 有 效 方法 是 从 有 疑 


问 的 电路 的 中 心 开始 ,检查 信号 的 出 现 情况 。( 假 设 有 
可 供 使 用 的 线路 图 ) ,然后 移动 探 针 向 后 或 向 前 到 达 有 
故障 的 输出 端 , 如 图 9 一 1 所 示 , 这 样 不 需 很 长 的 时 间 
就 可 以 找到 有 毛病 的 芯片 , 有 故障 的 芯片 的 输出 端 电 
平 不 会 发 生变 化 的 。 

逻辑 探 针 的 唯一 限制 是 它们 只 能 监测 一 条 线路 。 


NOR 迎 辑 探 针 
- 1 
AND 
NAND | 打 的 输出 
| 


不 好 良好 
了 | 避 动 方向 
全 仙 


图 9 一 ! 从 有 怀疑 的 线路 中 心 开始 分 析 


三 . 逻辑 脉冲 发 生 器 

如 果 被 测试 的 电路 没有 脉冲 或 变化 的 信号 ,那么 
可 使 用 一 个 逻辑 脉冲 发 生 器 向 电路 输入 可 控 脉冲 。 这 
种 轻便 的 设备 就 是 便携 式 迎 辑 脉冲 发 生 器 。 

当 启 动 按钮 开关 或 滑动 开关 后 ,脉冲 发 生 器 将 识 
别 其 探 针 所 接触 点 的 逻辑 电 平 , 并 自动 产生 一 个 或 一 
系列 相反 的 逻辑 电 平 脉冲 ; 该 脉冲 可 以 由 安装 在 脉冲 
发 生 器 手柄 上 的 发 光 二 极 管 显示 出 来 。 

在 电路 中 引进 一 个 变化 信号 而 不 需 焊 脱 或 切断 线 
路 , 使 逻辑 脉冲 发 生 器 与 逻辑 探 针 成 为 理想 的 配套 工 
具 。 二 者 同时 使 用 ,通过 激励 /响应 来 逐 段 测 定 某 一 电 
路 。 

图 9 一 2 表示 使 用 逻辑 探 针 与 脉冲 发 生 器 测试 逻 
辑 门 的 几 种 方法 。 假 设 与 非 门 的 输出 端 保持 高 电 平 ， 
测试 输入 端 1、2 和 3, 发 现 它们 全 为 高 电 平 , 在 此 种 情 
况 下 ,与 门 输出 端 应 为 高 电 平 , 而 与 非 门 产 生 一 个 低 电 
平 输出 。 如 果 有 毛病 的 , 将 逻辑 探 针 放 在 与 门 的 输出 
端 ,发 现 它 为 低 电 平 , 它 本 应 为 高 电 平 ,那么 , 娜 一 个 站 
是 坏 的 呢 ? 


图 9 一 2 有 几 种 方法 测试 逻辑 门 . 
为 了 找 出 毛病 , 将 探 针 放 在 与 非 门 〈 门 B) 的 输出 
端 , 把 对 冲 发 生 器 置 於 与 门 ( 门 A) 输 出 端 (与 非 门 的 输 
入 端 ) ,如 图 9 一 3 所 未, 在 该 线 上 加 入 且 冲 。 
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膛 狂 控 合 


MO 


图 9 一 3 将 探 针 放 在 与 非 门 输出 端 上 而 脉冲 发 生 器 放 在 与 门 输出 端 

若 逻 辑 探 针 闪烁 发 光 , 这 表示 在 与 非 门 的 输入 端 
有 一 变化 的 信号 。 如 果 不 发 出 表示 变化 的 光 , 则 与 非 
门 可 能 坏 了 ;但 是 ,如 将 与 门 的 输出 端 或 与 非 门 的 输入 
端 对 地 短路 后 ,与 非 门 输出 端 为 什么 会 出 现 低 电 平 呢 ? 

在 与 门 的 输出 端 放 入 探 针 和 脉冲 发 生 器 , 如 图 9 
一 4 所 起 , 并 注入 脉冲 信号 , 如 果 探 针 闪烁 , 则 与 非 门 
是 坏 的 。 因 为 它 的 输入 端 改变 状态 ， 它 的 输出 端 也 应 


炙 冲 发 生 器 


探 针 

图 9 一 4 将 探 针 和 及 冲 发 生 的 放 在 与 门 的 输出 端 

如 果 探 针 不 闪烁 , 则 该 电路 与 地 短路 。 确 定 哪 个 
芯片 短路 的 方法 是 用 手 接触 芯片 的 外 壳 , 短路 的 芯片 
是 相当 热 的 。 虽 然 某 个 芯片 处 在 1 电 平 的 状态 似乎 是 
正常 的 ,但 正 是 由 于 电路 某 处 的 对 地 短路 , 才 使 该 芯片 
总 处 于 这 种 状态 而 不 会 改变 。 

四 . 电流 故障 检 村 器 

第 四 种 轻便 型 故障 检测 工具 是 电流 故障 检 寻 探 
针 , 这 种 便携 式 设备 能 够 确切 地 判断 在 苹果 机 母 板 上 
的 (或 外 设 板 ) 短 路 点 。 电 流 故 障 检 村 器 可 以 测 电路 中 
的 电流 所 产生 的 磁场 。 用 逻辑 脉冲 发 生 器 产生 脉冲 信 
号 ,使 电流 故障 检 寻 器 的 发 光 二 极 管 闪 烁 ,表示 有 电流 
通过 。 

如 果 将 检 寻 器 的 探 针 置 于 印刷 电路 板 的 电路 上 ， 
并 且 沿 着 电路 导线 滑动 。 只 要 在 所 滑动 的 电路 上 有 电 
流 存在 , 在 探 针 终端 的 发 光 二 极 管 就 会 闪烁 , 当 滑动 通 
过 某 个 短路 点 时 , 则 灯光 将 会 暗淡 或 熄灭 ,这 样 就 可 以 
找到 短路 点 。 

图 9 一 5 表示 在 一 个 逻辑 电路 中 ,确定 那个 门 对 地 
短路 的 一 种 简易 方法 : 假设 B 门 有 一 个 短路 输入 端 ， 
将 防 冲 发 生 器 和 检 寻 器 放 於 两 个 门 的 中 间 , 调整 电流 
， 故 障 检 村 器 的 发 光 二 极 管 刚 好 发 光 , 向 电路 注入 脉冲 ， 
将 检 村 器 的 探 针 置 於 A 门 的 输出 端 , 然后 到 B 门 的 输 
入 端 , 对 地 短路 的 那个 门 会 使 检 寻 器 的 发 光 二 极 管 明 
亮 地 闪烁 ,这 是 因为 存在 更 多 的 电流 由 此 通 地 的 缘故 。 
在 上 述 检测 中 , 在 B 门 的 输入 端 会 使 检 寻 器 的 灯光 明 
亮 的 闪烁 ; 而 在 A 门 这 一 边 的 线路 上 不 会 使 检 村 器 的 
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灯光 发 亮 。 根据 检 寻 器 上 的 发 光 二 极 管 的 发 光 情 况 ， 
就 可 以 判断 电路 上 电流 的 情况 。 


还 畔 读 冲 发 生 次 


电流 故障 和 寻 器 


图 9 一 5 发 光 二 极 管 发 光 因 短 路 而 发 光 
五 、. 集 成 电路 测试 器 

完善 的 障 检测 设备 是 很 复杂 和 昂贵 的 。 一 台 能 够 
检查 苹果 机 系统 上 的 芯片 的 检测 设备 其 价格 在 1000 
美 无 至 2000 美元 之 间 。 价 格 在 10, 000 美元 的 设备 就 
可 以 远 距 离 的 进行 芯片 测试 处 理 。 

在 Dallas, Texas 的 Micro Sciences, inc, 制造 的 集成 
电路 测试 器 可 以 测试 超过 100 种 的 7400TTL 和 
4000CMOS 系列 的 器 件 , 这 种 测试 器 也 能 测试 部 分 
RAM 和 ROM 芯片 。 

在 Gardena，California 的 Microtek Lab 制造 的 一 种 
测试 器 可 以 测试 900 种 54/74TTL 系列 芯片 的 全 部 功 
能 引线 。 这 种 测试 器 在 液晶 显示 器 (LCD) 上 显示 被 测 
芯片 的 情况 ,而 用 发 光 二 极 管 的 信号 显示 测试 结果 。 

San Diego，California 的 VuData Corporation 所 推出 
的 这 类 产品 是 线路 中 的 元 件 测试 器 , 它 所 使 用 的 阴极 
射线 管 能 显示 50MHZ 的 信号 ,并 能 显示 实际 全 部 电路 
元 件 的 电压 电流 特性 曲线 ,这 些 元 件 包 括 电 容器 .二 极 
管 、 集 成 电阻 和 三 极 管 。 使 用 这 种 测试 器 测试 的 元 件 
情况 是 由 在 CRT 上 显示 的 曲线 形状 决定 的 ,， 它 能 分 辩 
出 开路 、 短 路 、 二 极 管 渗 漏 、 三 极 管 渗 漏 和 隔 界 的 集成 
电路 。 这 种 仪表 很 有 用 处 ,因为 它 可 以 测试 和 挑选 安 
装 在 电路 中 的 元 器 件 。 

六 . 示波器 

如 果 不 是 系统 设计 , 而 只 作 一 般 测试 , 具备 一 台 
25 一 30MHZ 的 双 迹 示波器 即 可 满意 地 进行 工作 。 当 
然 ,， 如果 仅 为 了 检测 苹果 机 母 板 的 故障 而 购置 一 台 示 
波 器 , 那 是 很 不 合算 的 。 

双 迹 、 四 迹 以 至 八 迹 示波器 的 一 个 突出 的 优点 是 
可 以 同时 观察 不 同 信号 通道 或 不 同 的 信号 。 例 如 , 可 


| 以 同时 观察 一 个 门 的 输入 端 和 输出 端的 实际 信号 , 并 
“可 以 测量 一 个 信号 从 芯片 的 输入 端 到 输出 端的 延迟 时 
” 间 。 另 一 个 有 效 的 技术 是 同时 显示 数据 总 线 或 地 址 总 


线 的 全 部 或 一 部 分 的 逻辑 电 平 , 从 而 可 以 了 解 在 该 总 
线 上 是 一 个 怎样 的 二 进 制 数 。 
七 . 琐 辑 分 析 器 

逻辑 分 析 器 是 与 示波器 相似 的 一 种 设备 。 它 是 一 
台 具 有 存储 器 的 多 通道 示波器 , 它 收 集 和 存储 数字 信 


号 的 一 个 数 ,并 允许 同时 观察 这 些 信 号 ,如 果 每 个 信号 
是 数据 总 线 的 一 位 , 那么 就 可 以 同时 看 到 整个 的 数据 
总 线 。 这 就 是 说 我 们 可 以 分 析 任 意 瞬 间 在 总 线 上 的 每 
一 位 的 逻辑 电 平 ,该 总 线 信号 被 冻结 以 供 显 示 和 分 析 。 
这 种 冻结 信号 现象 或 数据 模式 的 性 能 ,对 于 查寻 故障 
是 非常 有 利 的 。 因 为 这 样 就 能 确定 在 数字 化 总 线 上 任 
何 瞬 间 所 出 现 的 信息 。 


200MHZ 。 

这 种 分 析 器 能 同时 显示 许多 信和 号 (多 输入 通道 )， 
有 一 种 分 析 器 可 处 理 32 个 通道 的 输入 数据 ,, 工作 频 
率 达 到 100MHZ。 另 一 种 有 483 通道 , 200MHZ 的 分 析 
器 。 其 内 部 安装 了 微型 计算 机 和 双 面 双 密 度 软磁盘 驱 
动 器 。 每 一 个 通道 都 有 相应 的 检测 笔 夹 子 连接 到 线路 
的 每 个 测试 点 ,检测 笔 夹 子 是 细小 并 容易 固定 的 。 

目前 的 逻辑 分 析 器 的 取样 特性 已 经 达到 104 通 
道 , 工作 频率 为 25MHz; 另 一 种 为 32 通道 100MHz; 还 
有 一 种 16 通道 330MHz。 另 一 种 结构 具有 8 个 输入 
通道 而 可 工作 在 600MHz! (请 注意 Applef 的 时 钟 频 
率 为 1. 023MHz) 。 

逻辑 分 析 器 在 许多 场合 是 很 多 有 效 的 仪器 , 例如 
在 调试 软件 (debugging software) 中 , 读 出 机 器 码 的 数据 
以 及 数据 在 电路 的 流动 情况 ; 可 以 分 析 存 验 器 的 输入 
输出 情况 , 并 可 同时 确定 坏 的 RAM 芯片 ; 可 用 分 析 器 
来 发 现 间歇 性 假 信号 , 这 些 假 的 尖峰 脉冲 可 能 会 使 系 
统 造成 严重 的 破坏 ; 另外 逻辑 分 析 器 还 可 以 分 析 磁 盘 
驱动 器 的 /oO 操作 。 


逻 辑 分 析 器 过 去 称 为 数字 式 示波器 , 对 于 软件 或 


硬件 设计 者 来 说 , 它 可 能 是 一 种 很 有 价值 的 仪器 ,但 是 
对 于 一 般 的 计算 机 用 户 , 为 了 维修 自己 使 用 的 计算 机 
而 购置 逻辑 分 析 器 即 不 合算 也 非 必要 。 
八 、 信 号 差分 析 器 

逻辑 探 针 可 以 有 效 地 确定 某 一 个 点 的 逻辑 电 平 和 
脉冲 :示波器 扩充 了 被 监测 点 的 数目 ,甚至 可 以 观测 完 
整 的 数据 号 冲 ， 逻辑 分 析 器 更 进一步 扩展 了 测试 点 的 
数目 它 包 括 了 各 种 大 小 的 数据 总 线 和 地 址 总 线 。 然 
后 ,由 于 这 类 设备 采用 了 先进 技术 以 及 性 能 的 提高 , 操 
作 这 些 设 备 要 求 具 备 专门 的 知识 和 技术 , 特别 是 逻辑 
分 析 器 , 虽 其 功能 很 强 , 但 掌握 它 的 操作 就 更 为 困难 
了 。 信 和 号 差分 析 器 的 发 展 就 是 针对 上 述 情况 , 它 便于 
用 来 检测 硬件 的 故障 。 

信号 差分 析 是 一 种 寻 查 故障 的 比较 方法 , 它 的 工 
作 原 理 是 在 被 测试 的 系统 中 运行 一 个 诊断 程序 , 并 且 
在 线路 中 规定 的 测试 点 计算 某 种 编码 信 叶 , 如 果 编 码 
信号 与 从 正常 系统 运行 时 所 获得 的 编码 一 致 , 则 在 该 
被 测试 电路 部 分 未 发 生 故 障 , 当 某 测试 点 的 信号 差 与 


逻辑 分 析 器 的 工作 频率 一 般 从 2MHZ 至 


基准 正确 的 编码 不 一 致 时 , 这 就 表示 电路 部 分 是 出 现 
故障 的 区 域 , 然 后 从 该 点 向 前 或 向 后 逐一 的 分 析 , 就 可 
查 出 出 现 故障 的 元 器 件 。， 

第 一 种 编码 是 由 Hewiett 一 Packard 开发 的 , 稍 经 修 
改 后 一 直 使 用 至 今 ,这 种 测试 技术 的 关键 是 符号 编码 ， 
它 是 一 种 16 位 或 24 位 可 重复 的 数位 , 它 表 示 一 种 一 
定时 间 问 隔 通 过 测试 点 的 数据 流 , 这 种 已 知 的 数据 流 
由 一 台 信号 差分 析 器 在 一 块 良 好 的 电路 板 上 的 不 同位 
置 取样 , 就 形成 了 在 每 个 测试 点 的 独特 的 16 位 或 24 
位 编码 。 

这 种 编码 以 资料 方式 提供 或 者 存 和 人 PROM 中 , 在 
查寻 故障 中 可 以 反复 调用 , 这 个 PROM 成 了 一 个 包含 
正常 工作 系统 的 每 个 取样 信号 的 常规 存 贮 器 模块 , 该 
正常 工作 系统 是 由 已 知 数据 流 激发 或 触发 的 。 

信和 号 分 析 法 尚未 成 为 一 种 通用 的 查寻 故障 方法 的 
原因 是 : 它 要 花费 很 多 的 时 间 去 识别 测试 点 或 节点 , 测 
试 这 些 节点 .生成 信号 、 然 后 记录 这 种 信号 编码 。 当 这 
种 工作 完成 之 后 , 判断 故障 部 位 的 工作 就 较为 简便 了 ， 
而 采用 PROM 指令 模块 的 方式 就 可 使 以 上 的 工作 简 
化 。 在 不 久 的 将 来 , 这 种 分 析 技 术 将 会 得 到 进一步 的 
提高 与 发 展 。 

有 一 种 称 为 “backtrace”( 反 向 跟踪 ) 方式 的 分 析 
器 , 现 已 有 商品 生产 , 它 可 通过 一 系列 的 测试 点 迅速 地 
查寻 故障 ,指导 测试 者 反 向 跟踪 借 误 的 信号 , 以 寻找 故 
障 部 分 。 

”信和 号 差分 析 器 的 使 用 是 简单 的 , 非 技术 性 的 处 理 
就 可 以 查寻 故障 ,甚至 未 经 训练 的 人 员 也 能 使 用 这 种 
设备 和 技术 。 

第 二 节 元件 及 其 损坏 原因 

许多 故障 不 要 使 用 虽 贵 的 设备 就 可 找 出 。 事 实 
上 ，, 对 电子 元 件 损坏 的 情况 有 一 定 的 了 解 就 可 以 修理 
和 排除 故 辜 。 除 操作 者 的 错误 之 外 , 通常 引起 线路 故 
障 的 原因 是 使 用 过 度 和 元 件 的 老化 。 这 些 元 件 包 括 
RAM 和 ROM 芯片 , 6502CPU 以 及 母 板 和 磁盘 驱动 器 
之 间 的 IO 芯片 。CPU 是 一 种 高 可 靠 性 器 件 ,一 般 不 
会 损坏 。 最 易 损 坏 的 是 其 他 芯片 ， 除了 ROM 芯片 
一 一 它们 是 由 草 果 计算 机 公司 编程 的 芯片 之 外 。 其 他 
的 芯片 都 是 标准 的 通用 器 件 , 它们 通常 是 插 接 在 母 板 
的 插座 上 , 其 价格 便宜 且 易 于 更 换 , 另外 还 有 一 些 焊 接 
在 苹果 机 母 板 上 的 元 件 , 它 们 的 更 换 就 较为 困难 了 。 

在 了 解 各 种 维修 工具 的 基础 上 , 进一步 分 析 各 类 
元 素 的 损坏 情况 ,有 助 于 排除 故障 和 修理 。 

一 、 集 成 电路 芯片 

芯片 或 集成 电路 是 由 硅 和 其 他 微量 的 诅 入 硅 片 某 
个 一 定 部 位 的 金属 (杂质 ) 构 成 的 。 由 于 金属 所 处 的 某 
种 位 置 可 以 组 成 微型 的 三 极 管 , 当 在 芯片 的 某 个 地 方 
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加 上 一 个 电压 时 , 它 可 成 为 一 个 电压 反 相 器 件 ( 十 5V， 
膛 辑 1 可 反 相 为 ,OV, 逻辑 0), 失 而 可 形成 各 类 逮 辑 门 
的 功能 (与 、 与 非 . 或、 或 非 门 等 的 功能 ) 。 在 这 种 硅 片 


上 可 以 集成 极其 微小 的 硅 / 金 属 结 , 已 经 在 很 小 的 芯片 


上 就 可 集成 成 千 上 万 只 三 极 管 , 例如 在 一 块 指 甲 大 小 
的 存 贮 器 芯片 上 就 有 多 达 470,000 个 三 极 管 。 

芯片 制造 厂家 的 问题 是 如 何 将 电压 和 信和 号 输入 和 
输出 这 样 微小 的 芯片 , 采用 极其 细小 的 导线 作为 芯片 
的 输入 与 输出 端 。 导 线 是 粘 结 或 焊接 在 芯片 的 微小 底 
座 上 。 导 线 的 另 一 端 焊 接 支 架 材料 的 较 大 的 基 座 上 ， 
支架 结构 还 包括 芯片 的 管 脚 , 用 它们 可 以 插入 印刷 电 
路 板 上 的 芯片 插座 。 

芯片 实际 上 是 在 有 相当 大 的 应 力 的 条 件 下 工作 。 
打开 计算 机 电源 时 , 芯片 的 温度 升 高 ; 然后 , 关闭 机 器 
时 ,芯片 的 温度 下 降 ; 再 开机 器 时 ,温度 再 次 升 高 ,这 种 
热 一 冷 一 热 的 效应 ， 形成 所 谓 “ 热 应 力 ”。 它 会 影响 微 
细 的 导线 束 , 还 包括 那些 插座 的 管 脚 。 经 过 一 段 时 期 
之 后 ,这 种 热 应 力 会 使 导线 与 芯片 和 管 脚 的 焊 点 断裂 ， 
这 就 形成 了 芯片 输入 或 输出 端的 开路 ,这 些 芯 片 就 要 
进行 更 换 。 

芯片 的 另 一 种 损坏 原因 是 由 所 谓 “ 金 属 漂移 ?现象 
引起 的 。 芯 片 可 以 认为 是 一 个 原子 的 海洋 。 某 些 金属 
微粒 漂浮 在 这 个 海洋 中 , 漂移 方向 与 通过 芯片 的 电流 
相 垂 直 , 当 这 种 金属 微粒 开始 在 芯片 中 的 某 一 处 集聚 
时 就 会 发 生 问题 。 如 果 它 们 集聚 在 这 些微 三 极 管 中 的 
某 个 中 则 时 ,就 会 使 这 个 三 极 管 的 工作 状态 与 其 他 的 
不 同 , 或 不 能 工作 。 如 果 这 种 集聚 的 金属 具有 足够 高 
的 电阻 ,就 会 使 器 件 间歇 性 的 工作 或 完全 不 工作 。 因 
为 三 极 管 是 逻辑 门 的 一 个 部 分 , 这 个 门 就 会 出 现 错误 
动作 , 其 输出 可 能 是 “1 也 可 能 是 “0”, 不论 其 输入 信和 号 
如 何 。 从 理论 上 说 , 这 种 消耗 损坏 需 使 用 几 百 年 后 才 
会 发 生 ,但 是 如 果 把 芯片 置 于 高 温 、 高 电压 或 电源 经 党 
打开 关闭 的 环境 下 , 它们 的 寿命 就 会 缩短 , 甚至 很 快 就 
会 损坏 。 

另 一 些 问 题 出 现在 芯片 的 外 部 , 即 芯片 的 导线 和 
被 称 该 器 件 的 输入 或 输出 端的 管 脚 支 撑 结构 之 间 ， 这 
类 故障 包括 :输入 端 或 输出 端 对 地 短路 ,芯片 管 脚 与 十 
5V 电源 短路 , 管 脚 之 间 短 路 , 管 靶 开路 以 及 连接 点 的 
间 葡 接触 的 毛病 。 最 常见 的 问题 是 对 地 开路 或 短路 。 
在 正常 使 用 情况 下 , 必 片 最 后 的 损坏 是 由 于 某 个 输入 
或 输出 端 对 地 短路 。 

二 .电容 器 

了 解 一 些 有 关 标 准 电 容器 的 知识 , 将 有 助 于 我 们 
对 这 类 器 件 损坏 情况 的 了 解 。 

在 第 一 章 中 , 已 介绍 在 苹果 机 考 板 上 的 几 种 型 式 
的 电容 器 。 一 个 电容 器 由 两 个 隔离 的 金属 极 板 构成 ， 
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当 电 压 加 在 这 两 片 极 板 之 间 时 ,电流 就 立即 穿 过 这 个 
间 辽 ,但 是 一 当 电荷 层 在 电极 之 间 形 成 后 ,就 使 电流 停 
止 。 电 容器 可 以 认为 是 被 充电 到 某 个 电势 。 电 容器 被 
用 来 贮 攻 电荷 和 滤 除 不 希望 的 信号 尖峰 (突然 的 .急速 
的 电压 尖峰 ) 。 

电解 电容 器 是 由 两 片 锅 稍 或 负极 板 之 间隔 以 温 注 
了 电解 液 的 多 孔 性 纸 构成 , 在 一 个 电极 上 《(〈 正 电极 ) 沉 
积 了 一 层 氧 化 铝 ,这 就 是 所 谓 的 电介质 ,电容 器 有 一 个 
阳极 ( 正 电极 ) 和 一 个 阴极 (电解 液 ) 。 电 子 在 一 个 电极 
上 积累 ,使 它 呈 负电 位 ,从 而 将 一 步 阻止 电流 的 通过 。 

另 一 种 类 型 的 电容 器 称 为 “薄膜 ” 电容 器 , 它 是 在 
两 铅 条 销 之 间 吊 以 塑 料 绝缘 体 (通常 是 聚 荃 乙烯 薄 
膜 ) 构成 , 金属 箱 片 作为 电极 而 塑料 绝缘 体 作 为 电 介 
质 , 薄膜 电容 器 用 环 氧 树脂 封装 并 有 两 根 铜 镀 锡 的 电 
极 引线 。 

电容 器 的 开路 或 短路 的 损坏 取决 于 它们 的 工作 条 
件 和 使 用 期 限 。 

电解 电容 器 特别 对 老化 过 程 敏感 , 老化 的 影响 使 
电解 液 绝 缘 体 逐渐 干燥 , 开始 电容 量 增加 , 电气 性 能 下 
降 , 最 后 电容 量 显 著 地 下 降 , 极 板 之 间 相 互 靠近 , 引起 
短路 。 

. 另 一 种 损坏 的 原因 是 当 一 些 氧 化 物 电介质 溶解 在 
电解 液 中 的 时 候 , 使 电介质 层 的 厚度 减少 。 这 种 变化 
通常 是 由 于 电解 电容 器 长 时 期 放置 不 加 电压 引起 的 。 
在 这 种 情况 下 , 电容 量 增加 ,电极 间 形 成 大 量 的 漏电 
流 ,使 电容 器 无 法 使 用 。 

电容 器 的 引线 也 可 能 由 於 物 理性 质 的 作用 , 使 它 
们 与 电容 极 板 开 路 。 

由 于 所 加 电压 过 高 , 使 某 个 电极 上 的 氧化 电介质 
层 大 面积 的 剥落 ,这 样 也 会 引起 电极 间 的 短路 。 

同 电阻 一 样 ,在 苹果 机 的 数字 逻辑 电路 中 电容 器 
是 不 大 会 损坏 的 。 它 在 电源 部 分 损坏 的 可 能 性 比 在 划 
果 机 母 板 上 的 较 大 。 但 是 ， 过 高 的 温度 使 电容 器 损坏 
人 

电阻 

这 种 限制 电流 ,降低 电压 的 器 件 是 十 分 可 洁 的 , 它 
将 在 计算 机 的 寿命 期 内 正常 地 发 挥 其 功能 。 但 是 由 于 
某 些 因 素 缩短 了 芯片 的 有 效 寿命 , 同时 也 会 降低 电阻 
的 寿命 。 高 温 、 高 压 以 及 电源 的 通 断 对 构成 电阻 的 材 
料 有 影响 。 这 些 应 力 会 引起 碳 质 电阻 胶 的 断裂 。 或 者 
使 碳 膜 与 引线 发 生 开路 。 特 别 是 由 于 高 压 所 引起 的 大 
电流 , 会 烧毁 电阻 , 但 是 这 是 非常 少 有 的 情况 , 因为 在 
数字 电路 中 最 高 电压 是 12V (通常 为 5V) 而 电流 是 微 
安 级 。 

电阻 的 损坏 往往 是 伴随 电路 某 些 其 他 元 件 损坏 而 
产生 的 , 打印 机 电路 中 的 电阻 损坏 的 可 能 性 比 主机 中 


的 较 大 。 
. 电感 

电感 用 於 谐 电路 , 其 作用 是 保持 电流 在 一 恒定 状 
如 前 所 述 , 在 苹果 机 母 板 的 色彩 调谐 电路 中 有 一 
个 小 的 电感 , 这 种 器 件 是 由 绝缘 导线 绕 制 的 线圈 。 电 
感 的 损坏 是 极为 少见 的 ; 但 是 电感 如 受 高 温 或 高 压 的 
影响 ,也 可 能 出 现 线圈 闻 的 短路 或 线圈 的 断裂 。 
五 . 二 极 答 和 三 极 管 

在 苹果 机 母 板 上 的 二 极 管 和 三 极 管 均 系 固 体 材 料 
制 成 ,其 作用 是 相似 的 。 事 实 上 ,三 极 管 可 以 认为 是 两 
个 二 极 管 的 一 部 分 组 成 的 。 

二 极 管 是 电路 中 的 一 个 单 向 阁 , 它 允 许 电流 按 一 
个 方向 通过 。 二 极 管 是 由 硅 或 镭 制 成 , 它们 在 电源 电 
路 中 作 整 流 器 , 而 在 某 些 电路 中 使 电压 保持 在 一 恒定 
水 平 。 另 一 种 二 极 管 由 砷 化 锐 制 成 , 当 它 被 某 种 适当 
的 电压 偏 置 时 ,， 可 以 发 光 , 因而 被 称 为 发 光 二 极 管 或 
也 尼 Dag 。 

在 计算 机 电路 中 , 三 极 管 使 用 在 各 个 位 置 作 为 放 
大 器 或 电子 开关 。 

二 极 管 和 三 极 管 的 损坏 情况 和 损坏 原因 5 站 片 相 
同 。 但 是 芯片 的 损坏 比 二 极 管 或 三 极 管 更 为 常见 。 这 
是 因为 在 与 二 极 管 或 三 极 管 大 小 相同 的 芯片 上 , 集成 


了 更 多 的 微型 三 极 管 , 因 此 ,在 芯片 上 会 产生 更 多 的 热 


量 , 其 温度 会 更 高 。 
第 三 节 ”使 用 仪表 寻找 元 件 故障 

在 革 果 机 母 板 上 的 大 多 数 芯片 是 TTL (三 极 管 一 
三 极 管 一 逻辑 ) 。 如 果 已 知 芯片 的 逻辑 功能 (与 非 、 或 
非 .或 .与 等 等 ) , 当 在 其 输入 端 加 上 一 个 已 知 逻 辑 电 平 
的 信号 就 可 在 其 输出 端 监测 其 输出 信号 ， 从 而 检测 其 
开路 或 短路 。 例 如 , 在 两 个 输入 端 短 接 的 与 门 上 加 一 
个 由 十 5V 变 至 ovV 的 慢 变 化 脉 冰 时 ,就 可 在 其 输出 端 
测 到 一 个 与 输入 脉冲 对 应 的 输出 电 平 的 变化 (脉冲 )， 


即 当 输 入 端 是 逻辑 “1" 时 ,输出 端 也 成 为 逻辑 “1”( 电 压 _ 


在 十 5V 和 十 2. 4V 之 间 ) 。 

使 用 在 输入 端的 工具 是 逻辑 脉冲 发 生 器 , 在 输出 
端的 监测 工具 则 是 逻辑 探测 器 。 脉 冲 发 生 器 在 芯片 的 
输入 端 注 入 一 个 循环 的 逻辑 电 平 ,而 探测 器 在 其 输出 
端 测量 逻辑 信号 的 有 无 。 

如 果 该 与 门 的 输入 端 对 地 短路 , 则 号 冲 发 生 器 不 
能 注入 信号 ;从 而 其 输入 端 保持 在 逻辑 0 或 低 电 平 ( 接 
近 OV)。 若 只 有 一 个 输入 端 接地 , 也 不 会 使 输出 端的 
电 平 改变 而 使 它 保持 在 逻辑 0。 

在 门 的 整个 工作 时 期 将 门 的 一 个 输入 端 与 电源 电 
压 短 接 会 使 该 输入 端 受 到 限制 或 启动 的 效果 , 这 就 是 
说 ,即使 一 种 输入 状态 正确 的 , 另 一 个 输入 端 每 接受 一 


个 逻辑 “1”, 车 该 输入 信号 是 正确 的 , 则 使 输出 端 变 为 
逻辑 “1”, 这 类 问题 在 存 贮 器 电路 中 已 经 指出 。 只 有 一 
种 输入 状 的 门 是 一 种 被 短路 或 开路 的 特殊 门 ， 只 要 使 ， 
用 这 种 门 就 可 能 产生 输出 正确 或 不 正确 的 结果 ,这 个 
困难 的 问题 将 分 析 如 下 。 

将 一 个 输入 管 脚 短 接 于 十 5V 可 能 会 有 潜在 的 严 
重 结果 。 当 前 面 的 门 试图 传送 一 个 逻辑 “0” 或 低 电 平 
时 ,这 会 引起 巨大 的 电流 ,往往 会 使 该 驱动 芯片 造成 灾 
难 性 的 损坏 。 当 这 个 输入 端 对 地 短路 时 ,也 会 产生 相 
同 的 结果 ,当前 面 的 门 试图 传送 一 个 逻辑 “1? 或 高 电 平 
时 , 十 5V 的 逻辑 高 电 平 直接 对 地 短路 , 形成 很 大 的 电 
流 , 从 而 也 会 产生 同样 严重 的 结果 。 

连接 点 的 开路 防 碍 了 逮 辑 电 平 的 传送 和 防 碍 了 门 
对 逻辑 电 平 的 响应 。 如 果 一 个 两 输入 端的 与 非 门 其 中 
一 个 输入 端 开路 , 如 图 9 一 6 所 示 , 在 四 种 可 能 的 输入 
组 合 中 ,其 输出 除 一 种 外 其 他 都 是 正确 的 。 这 就 是 说 : 
当 一 半 的 输入 端 是 完好 的 时 候 , 在 大 多 数 时 间 系 统 可 
以 正确 地 工作 。 但 这 种 类 型 的 故障 , 会 使 系统 出 现 间 


坎 性 的 毛病 。 输入 多 
开路 OA B | 
和 

工 于 不 朱 
4 让 :EL 一 低 电 平 呈 上 恨 好 
-一 总 电 闻 0 民生 
图 9 一 6 与 非 门 的 一 个 输入 端 开 路 , 在 四 种 逻辑 状态 
中 有 一 种 会 出 现 问题 


如 图 9 一 7 所 示 , 如 果 补 测试 的 器 件 是 一 个 或 非 罗 
辑 门 , 只 有 当 其 两 个 输入 端 均 为 逻辑 “0” 或 低 电 平时 ， 
其 输出 端 才 会 是 逻辑 “1 或 高 电 平 ,如 果 输 入 端 之 一 开 
路 , 它 将 浮动 至 逻辑 “1”, 这 样 就 不 会 有 任何 二 种 输入 
状态 能 使 其 输出 端 成 为 逻辑 “1? 或 高 电 平 。 因 此 ,其 输 . 
出 将 永远 处 于 低 电 平 ， aa 


开路 肖 动 至 高 电 平 ， 


图 9 一 一 7 ”一 个 输入 端 开 路 的 或 非 门 , 不 论 输入 端 状态 
如 何 , 其 输出 端 总 是 低 电 平 

如 果 芯 片 的 输出 端 管 脚 断路 ， 它 就 不 可 能 向 下 一 

级 门 传送 任何 逻辑 “1? 或 逻辑 “0 的 电 平 。 测 量 下 一 级 
门 的 输入 端的 电压 ,这 时 会 出 现 一 个 逻辑 “1? 或 “高 " 电 
平 电势 (在 十 4V. 左 右 ) 。 这 里 的 关键 是 : 在 任何 时 间 某 
个 TITLE 门 的 输入 端 断路 (这 种 情况 称 为 “浮动 >), 这 个 
门 在 它 的 输入 端 就 恒定 地 作用 了 一 个 逻辑 “1 的 电 平 ， 
在 这 个 浮动 输入 端 上 的 电压 将 在 十 5V 的 电源 电压 和 
某 个 电 平 之 间 漂 移 , 所 谓 某 个 电 平 是 指 有 效 “ 高 与 有 


效 “ 低 "之 间 的 一 个 电压 值 , 一 般 约 为 1. 5V (通常 有 效 
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“高 "是 十 2.4V 以 上 ,有 效 “ 低 ?是 低 于 十 0.4V。) 

:如 果 在 一 个 芯片 中 的 某 个 门 的 输出 端 用 电压 表 测 
量 其 读数 约 为 十 1. 7V, 这 就 提示 了 该 输出 端 是 浮动 开 
路 , 而 该 电压 是 由 后 一 级 芯片 或 下 一 个 门 所 提供 的 。 
所 有 这 些 故 障 可 以 使 用 一 个 逻辑 脉冲 发 生 器 和 一 个 逐 
辑 探 测 器 来 检测 ， 并 用 哀 空 管 电 于 表 所 测量 的 电压 为 
辅助 手段 。 

六 为 苹果 机 的 母 板 是 固定 在 几 个 点 上 的 ， 如 果 用 
户 在 更 换 芯 片 在 母 板 的 下 面 没有 支撑 而 下 压 该 板 时 ， 
可 能 使 电路 板 上 的 印刷 电路 线路 断裂 和 开路 。 这 种 细 
裂缝 往往 是 难 於 发 现 的 。 使 用 一 个 放大 镜 并 在 强 光 下 
观察 这 种 印刷 电路 板 , 有 时 可 以 发 现 这 种 故障 。 可 以 


用 一 块 三 用 表 或 真空 管 电压 表 测 量 电路 板 线路 两 端的 
电阻 值 ,观测 表 的 读数 是 否 是 0 欧 媚 ; 另 一 种 方法 是 比 
较 线 路 两 端的 逻辑 状态 来 查 明 线路 是 否 断 裂 。 

在 测试 苹果 机 母 板 电路 中 门 的 短路 或 开路 时 , 应 
特别 注意 的 是 一 个 门 可 能 使 用 相同 的 几 根 输入 线 由 其 
他 的 输入 或 用 相同 的 几 根 输出 线 ,输出 至 其 他 的 门 , 这 
就 是 所 谓 的 “ 遍 和 人 ”或 “ 山 出 ”。 当 研究 门 电路 时 , 不 要 
忘记 : 故障 可 能 出 现在 电路 板 的 另 一 个 侧面 。 对 放 一 
根 离 芯片 很 长 的 线路 ,， 它 的 短路 或 开路 很 可 能 出 现在 
该 侧面 。 这 里 使 用 Apple 参考 手册 中 的 图 纸 是 很 重 
要 的 。 

(未 完 待 续 ) 


可 节 果 机 上 .2 洲 字 节 控制 


通过 


为 满足 苹果 机 用 户 扩充 容量 的 需要 , 广东 省 电子 
技术 研究 所 研制 的 ZPCK 一 6 软盘 控制 器 通过 了 设计 
定型 鉴定 。 这 种 控制 器 与 该 所 ZPC 一 10A 5 时 1.2M 
软盘 驱动 器 配合 使 用 , 能 使 荚果 机 由 原来 的 5 时 单 面 
单 密度 每 盘 容量 140K 字 节 , 扩充 到 1. 2M 字 节 ,填补 
了 我 国 计 算 机 行业 在 这 方面 的 空白 ,为 数据 量 大 的 苹 
果 机 用 户 带 来 了 福音 。 


ZPCK 一 6 软磁盘 控制 器 , 能 控制 1 一 4 个 ZPC 一 


〈 士 按 42 页 ) 
周期 ) 。 当 达到 计算 值 ( 装 入 计算 值 ) 时 , 中 斯 标志 被 置 
为 “1?。 此 后 , 内 部 时 钟 开始 递减 计数 。 直 到 一 255T 
的 最 大 值 。 因 此 在 中 断 标 志 被 设置 以 后 , 读 操 作 将 告 
诉 你 从 设置 标志 到 最 大 值 255T 间 具 有 多 长 时 间 。 

系统 数据 总 线 用 来 把 数据 送 到 定时 器 或 接受 从 定 
时 器 送出 的 数据 。 

寻 址 方式 ; 

当 CS 一 1,0C8: 一 PS 一 0 时 , 导 址 到 RAM。 0S 
一 了 ES = 1,53: 一 0 时 ， 寻 址 到 I/O 和 间隔 定时 器 。 访 
问 芯片 时 ，5 世 一 1,555 = 0, 用 5 脚 来 识别 RAM 或 
是 定时 器 。 当 85 = 0 时 , 选中 RAM5 当 RS 一 1 时 选 
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入 计 定型 鉴定 


10A 驱动 器 , 能 选择 香 面 / 双 面 、 单 密度 / 双 密 度 , 又 能 ， 
控制 8 时 与 5 时 驱动 器 工作 , 可 用 于 Dos3. 3 和 CP/ 
M2. 2 操作 系统 。 

目前 , ZPCK 一 6 控制 器 和 ZPC 一 10Al1. 2M 字 节 5 
时 半 高 驱动 器 均 已 批量 投产 , 配 成 子 系统 投放 市 场 。 


〈 邱 新 之 ) 


中 间隔 定时 器 。 用 地 址 线 4, 来 识别 定时 器 和 LVO 部 
份 ，4:. 王 1 ,访问 定时 器 ，4,=0 ,访问 MO 部 份 。 如 
上 表 所 示 : 
注 : 横 线 “ 一 ?为 不 确定 
(a): 4, = 0 表示 定时 器 到 /9 的 中 断 无 效 
由 一 1 表示 从 定时 器 到 79 的 中 断 允 许 
(b)， 4 一 0 表示 从 P4, 到 砚 G 的 中 断 无 效 
4 =1 表 示 从 P4, 到 7Eg 的 中 断 允 许 
(c): 4, 一 0 表示 选择 负 沿 触发 
4 一 1 表示 选择 正 沿 触发 


《 华 果 园 ;) 杂 志 一 一 无 八 天 年 征订 馈 事 


《苹果 园 } 杂 志 由 中 国 Apple 微机 协会 主办 ,是 为 Apple 微机 用 户 服务 的 专刊 。 本 刊 
的 宗 骨 是 普及 微机 知识 , 推广 微机 应 用 , 作 好 技术 服务 与 交流 。《 苹 果园 》 主要 栏目 有 ， 
国内 新 闻 、 技 术 专 文 、 应 用 篇 .国外 动态 .使 用 与 维修 .娃娃 园地 、 问 与 答 、 读 者 信息 等 。 
主要 刊登 国内 外 有 关 Apple 机 的 硬件 系统 、 应 用 程序 、 监控 程序 、 操作 系 统 . 用 户 要 求 、 
使 用 维修 和 市 场 动态 等 方面 文章 , 另外 , 从 八 九 年 起 开辟 IBM 一 PC 系列 机 栏目 ,并 承办 
广告 业务 。 读 者 对 象 是 从 事 Apple 机 设计 和 应 用 的 工程 技术 人 员 , 科研 人 员 , 大 专 院 校 
和 中 小 学 师 生 ,以 及 有 关 的 管理 人 员 等 。 

为 扩大 服务 面 ,欢迎 有 关 单 位 和 个 人 办 理 代 销 业 务 , 单 位 代销 150 套 以 上 或 个 人 代 
销 30 套 以 上 者 ,回扣 20% 给 代销 者 。 

《 贡 果 园 》 杂 志 一 万 八 九 年 为 双月刊 , 双 月 出 版 , 全 年 共 六 期 , 每 套 5. 40 元 ， 单位 订 
阅 请 填 好 订单 及 地 址 卡 从 银行 汇 至 山东 潍坊 市 4( 蔗 果园 ?杂志 编辑 部 (开户 银行 及 帐号 ; 
市 工商 行 东 关 办 事 处 896315) 。 个 人 订阅 者 可 从 邮局 汇款 至 山东 潍坊 市 东风 大 街 60 
号 4 苹果 园 } 邮 购 组 ,地 址 卡 随 信 寄 来 , 务 请 不 要 电汇 或 平 信 夹 寄 现 金 。 为 确保 投递 准确 
无 误 , 请 务必 把 地 址 填写 清楚 。 


中 国 APPLE 微机 协会 4 苹果 园 } 杂 志 编辑 部 


《 靳 果园) 杂志 1989 年 征订 单 
( 代 收 据 ) 


发 方 开户 银行 帐号 潍坊 工商 行 东 关 办 事 处 896315 
每 套 5. 40 元 共 ( ， ) 套 
此 联 与 银行 汇 单 或 邮局 汇款 收据 一 并 作为 报销 凭证 


果 粉 藏 
《苹果 园 》 
金额 (大 写 ) 

户 号 ， 印刷 唱 ，; “” 户 号 ， 印刷 品 
通讯 地 址 通讯 地 址 
订阅 单位 订阅 单位 
收 件 人 收 收 件 人 、 收 
《苹果 园 } 编 辑 部 《苹果 园 ) 编 辑 部 
第 六 期 第 五 其 
共 ( 。 ) 份 ”潍坊 市 东风 大 街 60 号 共 (  ) 份 。 潍坊 东风 大 街 60 号 
户 号 ; 印刷 品 ; 户 号 ; 印刷 品 
通讯 地 址 通讯 地 址 
订阅 单位 订阅 单位  ， 
收 件 人 收 ;， 收 件 人 收 

《 华 果园 编辑 部 《苹果 园 ) 编 辑 部 
第 四 其 第 三 其 
共 (  ) 份 ”潍坊 东风 大 街 60 号 共 (  ) 份 。 潍坊 市 东风 大 街 60 号 
户 号 ; 印刷 品 ; 户 号 ; 印刷 品 
通讯 地 址 通讯 地 址 
订阅 单位 订阅 单位 
收 件 人 收 ; 收 件 人 收 
《苹果 园 ) 编 辑 部 《苹果 园 ) 编 辑 部 
第 二 其 | 第 -期 ， 
共 (  ) 份 ”潍坊 市 东风 大 街 60 号 ”j 共 ( ， ) 份 ”潍坊 市 东风 大 街 60 号 


征订 、 征 稿 启 事 


《苹果 园 ) 杂志 是 Apple 微机 协会 主办 , 为 Apple 微机 用 户 服务 的 专刊 。 本 刊 的 宗 
旨 是 普及 微机 知识 , 推广 微机 应 用 , 作 好 技术 服务 与 交流 、 使 用 维修 ,信息 反馈 。 并 承 
接 广告 业务 。 本 刊 为 双月刊 ; 16 开本 、 每 期 定价 0. 90 元 ( 含 邮费 ) 。 全 年 6 期 共 5. 40 
元 。 八 八 年 合 订 本 每 套 5. 40 元 。 欢 迎 广大 读者 蹈 跃 订阅 和 投稿 。 

一 .订阅 办 法 

单位 订阅 请 填 好 订单 及 地 址 卡 从 银行 汇 至 山东 潍坊 市 (苹果 园 》 杂 志 编 辑 部 (开户 
银行 及 帐号 市 工商 行 东 关 办 事 处 896315) 。 个 人 订阅 者 从 邮局 汇款 至 山东 潍坊 市 东 
风 大 街 60 号 《苹果 园 》 邮购 组 。 地 址 卡 填写 清楚 随 信 寄 来 , 务 请 不 要 电汇 或 平 信 夹 寄 
现金 。 

本 刊 八 九 年 进一步 扩大 发 行 、 增 加 印刷 份 数 、 欢迎 有 关 单 位 和 个 人 办 理 代销 手续 ， 
单位 代销 150 套 以 上 或 个 人 代 30 套 以 上 者 , 回扣 20 站 给 代销 者 ,欢迎 有 关 单位 及 个 人 
承办 代销 及 汇总 订阅 业务 。 

二 、 征 稿 内 容 

《苹果 园 》 杂志 主要 栏目 有 : 国内 新 闻 、 技 术 专 文 、 经 验 交流 、 辅 助教 学 、 中 学 生 园 
地 、 使 用 与 维修 、 实 用 程序 等 。 另 外 , 从 八 九 年 起 , 开辟 IBM-_PC 系列 微型 机 栏目 。 主 
要 刊登 对 硬 、 软 件 分 析 研 究 和 二 次 开发 的 技术 专文 .各 种 实用 的 微机 程序 、 使 用 维修 、 
编程 技巧 ,程序 的 局 部 改进 和 优化 、 教 学 和 管理 软件 ,用 户 处 理 问题 的 经 验 等 文章 。 

三 .投稿 要 求 

1. 稿件 讲述 深入 浅 出 \ 文 字 通 俗 易 懂 、 读 者 喜闻乐见 、 易 于 推广 应 用 。 

2. 稿件 一 定 要 用 20 字 一 行 的 方 格 纸 书写 , 每 字 一 格 (包括 标点 符号 )、 字迹 工整、 

标点 正确 。 不 用 打印 稿 或 铅 印 。 

3. 按 图 要 在 坐标 纸 上 描 绘 清楚 正确 ,程序 要 用 打印 机 打印 的 原件 。 

. 翻译 或 编译 稿 请 附 原文 (复印 件 ) ,并 注 明 文章 的 出 处 和 作者 。 

. 来 稿 一 经 采用 发 表 , 即 付 优惠 稿酬 。 切 缴 一 稿 两 投 。 作 、 译 者 请 写 明 工作 单位 
(全 称 ) 及 详细 通信 地 址 ,以 使 经 常 联系 。 来 稿 若 不 采用 ,一 般 不 予 退回 。 

6. 来 稿 请 寄 山 东 省 潍坊 市 东风 大 街 60 号 (苹果 园 ) 编 辑 部 。 


cp 心 


《 华 果 园 ) 杂 志 一 九 八 九 年 征订 启事 


《苹果 园 》 杂 志 由 中 国 Apple 微机 协会 主办 ,是 为 .Apple 微机 用 户 服务 的 专刊 。 本 刊 
的 宗旨 是 普及 微机 知识 , 推广 微机 应 用 , 作 好 技术 服务 与 交流 。《 苹 果园 》 主 要 栏目 有 : 
国内 新 闻 、 技 术 专文 .应 用 篇 、 国 外 动态 使 用 与 维修 、 娃 娃 园 地 、 问 与 答 、 读 者 信息 等 。 
主要 刊登 国内 外 有 关 Apple 机 的 硬件 系统 、 应 用 程序 、 监控 程序 、 操 作 系 统 、 用户 要 求 、 
使 用 维修 和 市 场 动态 等 方面 文章 , 另外 , 从 八 九 年 起 开辟 IBM 一 PC 系列 机 栏目 , 并 承办 
广告 业务 。 读 者 对 象 是 从 事 Apple 机 设计 和 应 用 的 工程 技术 人 员 , 科研 人 员 , 大 专 院 校 
和 中 小 学 师 生 ,以 及 有 关 的 管理 人 员 等 。 

为 扩大 服务 面 , 欢 迎 有 关 单 位 和 个 人 办 理 代销 业务 ,单位 代销 150 套 以 上 或 个 人 代 
销 30 套 以 上 者 ,回扣 20% 给 代销 者 。 

《苹果 园 》 杂 志 一 九 八 九 年 为 双月刊 , 双 月 出 版 , 全 年 共 六 期 , 每 套 5. 40 元 ,单位 订 
阅 请 填 好 订单 及 地 址 卡 从 银行 汇 至 山东 滩 坊 市 4 苹果 园 } 杂 志 编 辑 部 (开户 银行 及 帐号 ， 
市 工商 行 东 关 办 事 处 896315) 。 个 人 订阅 者 可 从 邮局 汇款 至 山东 滩 坊 市 东风 大 街 60 
号 4 苹果 园 ? 邮 购 组 ,地 址 卡 随 信 寄 来 , 务 请 不 要 电汇 或 平 信 夹 寄 现 金 。 为 确保 投递 准确 
无 误 , 请 务必 把 地 址 填写 清楚 。 


中 国 APPLE 微机 协会 (苹果 园 》 杂 志 编 辑 部 


《结构 化 BASIC 语言 程序 设计 基础 ;出 版 

该 书 系统 的 介绍 了 结构 化 BASIC 程序 设计 。 全 书 共 分 七 章 。 第 一 章 讨论 了 结构 化 BASIC 
程序 的 概念 ; 第 二 章 除 CASE 条 件 结构 外 , 都 是 原 Applesoft BASIC 语言 所 提供 之 指令 的 介绍 ; 第 
三 章 到 第 七 章 介 绍 扩充 后 的 结构 化 支撑 设 设施 (指令 ) 的 内 容 。 其 中 , 第 三 章 讨论 了 函数 和 子 程 
序 概念 。 主 要 是 两 种 子 程 体 的 构成 和 调用 。 第 四 章 子 程序 库 。 介 绍 了 标准 子 程序 库 和 专用 子 
程序 库 , 子 程序 库 的 建立 、 更 新 和 使 用 。 几 种 语言 的 子 程序 库 设 施 比较 。 第 五 章 讨论 程序 的 分 
节 与 覆盖 , 介绍 了 线性 结构 和 覆盖 结构 。 第 六 章 介 绍 程序 的 模块 化 设计 方法 。 第 七 章 集中 介绍 
了 支持 子 程序 库 设施 的 DOS 3. 3 扩充 命令 , 是 本 书 的 重点 。 书 末 附 有 四 个 附录 。 内 容 包括 : 结 
构 化 BASIC 版 本 使 用 说 明 , 出 错 信息 , 程序 调试 技术 简介 , 常用 算法 标准 子 程序 示例 , 以 帮助 读 
者 建立 子 程序 库 的 概念 , 更 好 的 使 用 结构 化 BASIC 语言 。 该 书 是 在 Apple 机 上 使 用 结构 化 
BASIC 语言 的 一 本 较 好 的 参考 书 。 随 书 同 时 出 售 结构 化 BASIC 系统 软件 。 该 书 现 已 由 中 国 计 
算 机 用 户 协 会 Apple 微机 协会 4 苹果 园 》 编 辑 部 出 版 。 欲 订购 者 可 与 本 部 联系 。 


